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PREFAZIONE 


Poco meno di un anno fa la Gremese Editore ha sa¬ 
puto proporre, finalmente in italiano, una dozzina di agili 
e divertenti volumetti sui "Giochi con il computer" nella 
"Computer Games Series". 

Il successo, prevedibile ma confortante in questo mo¬ 
mento un po’ oscuro per l'editoria italiana, ci ha confer¬ 
mato che la via intrapresa era giusta e praticabile. 

Oggi, con questa “Computer School Series”, propo¬ 
niamo a quella che ormai è una sterminata falange di 
possessori di "piccoli” computer di voler fare un passo 
più avanti anche sul piano culturale. 

Reputiamo, infatti, che tutto il sapere tradizionale, con 
tutte le sue ampie e poliedriche sfaccettature, debba 
essere "rivisitato” con l’ausilio dei computer. 

Ogni elaboratore elettronico, per piccolo che sia, è un 
mezzo potente che sin d’ora, ma ancora di più nel futu¬ 
ro, ci sarà al fianco, momento dopo momento, come 
trampolino di lancio per la nostra fantasia, come amplifi¬ 
catore per la nostra intelligenza e come "ordinatore” per 
il nostro sapere. 

g.c.z. 
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INTRODUZIONE 


Il vostro COMMODORE 64, con il quale vi sarete sen¬ 
z’altro divertiti in molti giochi animati, ha tutte le capacità 
di un calcolatore, con infiniti campi di applicazione, 

Anche l’algebra può essere affrontata con l’aiuto di 
un calcolatore come il C-64, che è in grado di effettuare 
per noi alcuni calcoli od operazioni ripetitive e noiose. 

Con il suo aiuto possiamo evitare quegli aspetti e 
quelle difficoltà che talvolta l’algebra ed il suo studio 
presentano. L’algebra può diventare un gioco diverten¬ 
te... 

Come un docile strumento, il calcolatore può aumen¬ 
tare le nostre capacità anche se è, al tempo stesso, mol¬ 
to stupido. Dobbiamo scegliere noi come, quando e 
perché usarlo. Dobbiamo essere saggi anche per lui. 

Parte di questa saggezza è condensata nel program¬ 
ma, che guida passo passo il calcolatore, e parte in chi 
usa il programma, in modo giusto per i suoi scopi. 

I programmi di questo libro possono aiutarvi ad af¬ 
frontare alcuni problemi che l’algebra presenta: quando 
usarli, come applicare la potenza del vostro C-64, sare¬ 
te voi a deciderlo; ciò vi porterà, ne siamo convinti, ad 
una migliore comprensione dei problemi di questa par¬ 
te della matematica. 

Non è necessario conoscere il BASIC e le tecniche di 
programmazione per usare i programmi di questo libro 
in quanto basta copiare con attenzione i listati che pre¬ 
sentiamo: i programmi sono provati e funzioneranno. 

Abbiamo scelto di presentare alcuni programmi che 
affrontano problemi algebrici nel modo tipico dei calco¬ 
latori, cioè calcolando. Il modo di lavorare di un calcola¬ 
tore elettronico è infatti molto diverso da quello di un uo¬ 
mo: essenzialmente il calcolatore sa fare solo calcoli 
molto semplici, ma li fa molto in fretta. È il programma 
che combina questi calcoli tra loro fino ad ottenere dei 
risultati talora sorprendenti. 

Occorre quindi specificare al vostro C-64 anche le 
operazioni più semplici. Alcune operazioni più elemen¬ 
tari, ma che troviamo in quasi tutti i nostri programmi, 
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INTRODUZIONE 


Il II II II II li 

sono state raggruppate e formano un gruppo di subrou¬ 
tines riportate in appendice. 

Una subroutine è un po' come un pezzo di program¬ 
ma prefabbricato, che può essere usato più volte là do¬ 
ve occorre, senza riscriverlo ogni volta. 

Come un architetto dice: «Qui una porta, là due fine¬ 
stre, qui un’altra porta» così noi possiamo utilizzare più 
volte le subroutines nei nostri programmi, ogni volta che 
ci occorra la loro opera. Senza dover specificare ogni 
volta «serrature, cerniere, legno...». 

Con questo metodo i programmi sono più semplici e 
chiari, ed è più facile seguirne il funzionamento. 

Ogni programma ha un paragrafo. «COME FUNZIO¬ 
NA», che ne esamina la struttura; può essere molto utile 
se volete modificarlo o se volete creare dei vostri pro¬ 
grammi. Non è assolutamente indispensabile leggerlo 
per usare i programmi: quanta gente prende un ascen¬ 
sore senza sapere come funziona! 

Pensiamo però che prima o poi questa curiosità vi 
verrà: la programmazione di un calcolatore per fargli fa¬ 
re quello che vogliamo è una attività così affascinante 
che siamo certi che anche voi vorrete scrivere i vostri 
programmi, dopo aver usato quelli che vi presentiamo. 
Allora vi saranno molto utili le subroutines; per questo 
sono accompagnate da ampi commenti su cosa fanno 
e come devono essere usate in un programma. 

In questa nostra fatica ci accompagnano Giorgio e Mi¬ 
ster BIT. Giorgio è un ragazzo come voi, ma ha un calcola¬ 
tore magico... nel quale abita un genietto: Mister BIT. Il vo¬ 
stro calcolatore non è fatato come quello di Giorgio, non 
apparirà quindi Mister BIT, così come noi abbiamo immagi¬ 
nato nel libro, né appariranno i suoi consigli (che comunque 
vi abbiamo trascritto...), ma con questi programmi potrà 
egualmente aiutarvi nella risoluzione dei vostri problemi. 

Bene, un po' di entusiasmo e buon divertimento! 


a 











































I I I I [ 1 - J L 1 1 1 1 II 




c 




T AT.fVF.RRA CON C.-(A TTMIT 








llllh ri 1 11 I r 





COME USARE 
I PROGRAMMI 
DI QUESTO LIBRO 

Per utilizzare i programmi di questo libro vi occorre un 
C-64, un registratore CBM oppure un registratore nor¬ 
male con adattatore ed un televisore o monitor, meglio 
se a colori. 

Accendete il C-64: apparirà sullo schermo una scritta 
con l'indicazione della quantità di memoria disponibile 
ed il messaggio «READY». 

A questo punto siete pronti ad introdurre i vostri pro¬ 
grammi, copiandoli fedelmente dal libro, riga per riga e 
premendo alla fine di ogni riga il tasto /RETURN/. 

Vi potrà capitare di fare degli errori: per cancellare 
una riga basta scriverne il numero e usare il tasto /RE¬ 
TURN/; per correggerla si può riscriverla tutta oppure ri¬ 
scrivere soltanto le parti sbagliate, con l’uso dei tasti 
/DELETE/ (cancella) e /INSERT/ (inserisci). Premendo 
/RETURN/ la riga corretta sostituirà la vecchia. 

Controllate spesso quello che avete scritto dando il 
comando /LIST/ e, quando il programma è così lungo 
da non entrare tutto nel video, usate /LIST riga iniziale - 
finale/ (per esempio /LIST 1000-1050/): potrete così 
controllare le righe comprese tra i numeri che avete in¬ 
dicato. Consultate il manuale del C-64 per maggiori in¬ 
formazioni sull'uso di queste funzioni. 


CARATTERI SPECIALI 

Il C-64 accetta all’interno di ogni stringa — dopo il se¬ 
gno / ” / (virgolette) — dei caratteri speciali, che servono 
in genere a spostare il cursore o a definire il colore in 
fase di esecuzione del programma. 

Questi caratteri speciali appaiono sullo schermo co¬ 
me piccoli disegni su fondo scuro, come peraltro già in¬ 
dicato nel manuale del COMMODORE. 
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Noi abbiamo stampato i nostri programmi con una 
stampante MPS-801, utilizzando un programma di 
stampa apposito che sostituisce ai caratteri speciali i 
nomi dei tasti da usare per ottenerli, scritti tra parentesi 
quadre. 

L'esempio "STAMPA CARATTERI SPECIALI” mostra 
come appaiono sul video e nei listati di questo libro, i 
caratteri speciali usati. 


.100 

110 

120 

130 

140 

150 

ISO 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

279 

G'orri 

230 

300 

310 

320 

330 

340 

350 

360 

370 

330 

33R 


REM** STHMPR CARATTERI SFECIALI *** 


REA 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

FRIMT 

FRI NT 

FRI NT 

FRI NT 

FRI NT 

FRI NT 

FRI NT 

FRI NT 

REM 

REM 

REM**: 

REM 


FER I LISTATI DEI PROGRAMMI DI 
QUESTO LIBRO E' r STATA USATA LA 
LR STAMPANTE MF5-801. 
QUESTO ESEMFIO MOSTRA COME 
AFFAIANO I CARATTERI DI 
CONTROLLO SUL VOSTRO SCHERMO E 
QUALI TASTI OCCORRA USARE 
PER OTTENERLI 
SEGUENDO L'INDICAZIONI SUL 

LISTATO. 


"CARATTERE 

"a 

"iti 

"PI 

"31 

"a 


[TASTI] 

CHOME 1 

[SHIFT 3 + C HOME] 
CCRSRT3 

[SHIFT 3 + C CRSRf] 
CORSE* - ] 

C3HIFT3 + CCESR*-] 
CCTEL3+CRVS ON] 

[CTRL3 + [R'v'S OFF] 


* * * * * * * * ********* * * * * $ * * * * * * * * 
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40S REM R VOLTE NEL LISTRTO I CRRRTTERI 
410 REM DI CONTROLLO RIPETUTI SONO 

420 REM INDI ORTI COSI'': 

430 REM 
440 REM 

450 FRI NT "ISPP5 [3 CESPI 

460 REM 

470 R E M # % % % $ % % % $ % % % % % % % $ $ % % %%%%% $ $ $ ty. 

430 REM 

430 REM NON COFIRTE QUESTO PROGRRMMR 
500 RE M # # # $ # :“H # ■+■ V # $ $ # # # $ $ li! •+: # :4: $ $ $ $ «l $ l'H $ ■# $ 

COMMENTI 

Nei nostri programmi abbiamo introdotto righe di 
commento (sono quelle che iniziano con /REM/) e righe 
di separazione (quelle che contengono solo i due punti 
/:/), per mettere in evidenza le varie parti del program¬ 
ma stesso. Queste righe, pur non influenzando il funzio¬ 
namento del programma, occupano spazio in memoria 
e tempo per copiarle! 

Quando copiate un programma potete quindi saltare 
tutte le righe di commento o di separazione. Per facilitar¬ 
vi il compito, queste righe hanno un numero dispari, 
perciò copiate solo le righe con i numeri pari e trascura¬ 
te del tutto quelle dispari. 

Il seguente programma: 

333 R E M % % '■$.%%%%% # $ # $ $ $ $ $ $ # * T $ $ # '#!+;# $ % # 
1000 FRINT "FROVA” 

1003 : 

1010 END 

1 0 13 rem MMMmwmwwwmmwwmm* 

deve essere perciò copiato così, eliminando tutte le ri¬ 
ghe dispari: 

1000 FRINT "PROVA" 

1010 END 

in modo da risparmiare spazio in memoria e tempo nel 
copiarlo. 
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MEMORIZZARE 

Dopo aver scritto un programma, per prima cosa 
«salvatelo» su nastro. Questo si fa con il comando /SA¬ 
VE "nome”/. Scegliete per i vostri programmi dei nomi 
brevi e che indichino chiaramente di che programma si 
tratta: vi sarà più facile ricordarli ed usarli. 

Salvate il programma su nastro prima ancora di pro¬ 
varlo: infatti un errore anche stupido nel programma 
può causarne la distruzione, e, se non ne avete una co¬ 
pia su nastro da ricaricare, dovrete ricominciare a scri¬ 
verlo. 

Dopo aver salvato il programma potete provarlo: date 
il comando /RUN/ e controllate che non ci siano indica¬ 
zioni di errore e che lo schermo si presenti esattamente 
uguale alle figure riportate come esempio per ciascun 
programma: sono l’esatta riproduzione di quanto appa¬ 
re sullo schermo, ottenute con un programma apposito. 
Ricontrollate accuratamente le righe che danno origine 
a messaggi di errore, in quanto è facile, anche metten¬ 
doci la massima attenzione, fare una svista: basta salta¬ 
re una virgola! Provate tutte le funzioni di un program¬ 
ma, e controllatene i risultati. Quando siete ben certi che 
il programma è a posto, salvatelo in maniera definitiva. 
Vi consigliamo di registrare i programmi almeno due 
volte, su due cassette diverse; non si sa mai, una cas¬ 
setta potrebbe danneggiarsi e voi perdereste il vostro 
programma! Quindi due copie su due cassette: una da 
usare comunemente, l’altra da tenere da parte, di riser¬ 
va. 


SUBROUTINES 

I primi programmi da copiare sono le subroutines del¬ 
l'appendice. Saranno usate da tutti gli altri programmi. 
Copiatele e registratele (su due cassette) possibilmente 
all’inizio del nastro poiché le userete spesso: così vi 
sarà più facile ritrovarle. 

Date loro il nome di SUBROUTINES. 

Quando volete copiare un programma di questo libro 
o quando volete scrivere un vostro programma che le 
utilizzi, per prima cosa caricate le subroutines in memo¬ 
ria, con il comando /LOAD "SUBROUTINES"/ poi scri- 
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vete il programma e registrate di nuovo tutto il nome del 
programma che avete scritto. 

Per usare in seguito questo programma ricaricatelo in 
memoria e quando appare la scritta /READY/, scrivete 
semplicemente /RUN/: il programma funzionerà. 


RICORDATEVI DI: 

H Caricare le subroutines 

■ Copiare solo le righe pari 

■ Fare attenzione ai caratteri speciali 

■ Salvare» il programma appena scritto 

■ Provare attentamente i programmi 

■ Registrare definitivamente due volte su due 
cassette diverse. 

















































L. 






CALCOLI SENZA PROGRAMMI 

□_ C 







.zi 


CALCOLI SENZA 
PROGRAMMI 


Il nostro computer è molto più potente e più rapi¬ 
do di ogni comune calcolatrice tascabile. Se usato in 
maniera opportuna il C-64 può effettuare per noi, 
più velocemente e più esattamente, tutti i complessi e 
lunghi calcoli che ci assegnano a scuola. Non vi è 
neanche bisogno di saper programmare in quanto è 
sufficiente la conoscenza di due o tre istruzioni di 
BASIC per ottenere comodamente e facilmente il ri¬ 
sultato. In BASIC, dove sono disponibili anche le 
«difficili» operazioni esponenziali e trigonometri¬ 
che, le consuete operazioni di addizione, sottrazio¬ 
ne, moltiplicazione, divisione, elevazione a potenza 
ed estrazione di radice sono proprio facili facili: ba¬ 
sta una PRINT... Non solo il nostro computer cal¬ 
colerà per noi il risultato ma l’espressione introdotta 
— la formula — rimarrà a nostra disposizione sul vi¬ 
deo per un controllo, per una eventuale modifica e, 
se ne abbiamo bisogno, per essere nuovamente im¬ 
piegata. 

Vediamo un po’. 


Ma è proprio necessario scrivere un programma? 

Giorgio è molto nervoso: proprio oggi si è rotta la pic¬ 
cola calcolatrice tascabile, quella che porta a scuola. 
Proprio oggi che deve fare tutti quei calcoli. E il padre 
glielo aveva detto: «Guai a te se anche questa...» non 
più di un mese fa. 

Accende il C-64: giocare con il «Serpentone» che 
non deve mangiare se stesso lo calmerà, ai calcoli pen¬ 
serà poi... 

Ecco che al posto del solito labirinto con il lungo 
«centipede» appare un buffo omino. Appare anche un 
messaggio: 
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CIAO ! _ 

SONO rii STER E IT 
VEDIRAO UN PO' QUEI 

CRLCOLI _„ 

CHE DEVI FRRE 

Giorgio, stupito ed obbediente, una volta tanto, pren¬ 
de il quaderno e comincia a scrivere sul C-64 

C?-7*=; "7 


Appena batte /RETURN/ appare la scritta: 
NON COSI" 

SE VUOI LR RISPOSTA 
DEVI METTERE 
UN PUNTO 

INTERROGATIVO „.. 


Giorgio perplesso riprova: 


e come batte /RETURN/ appare: 

10120 


Appare anche la figurina buffa: 


fMA QUESTO E' FACILE. SE FRI 
.JZzrrL ATTENZIONE ALLE PARENTESI 
\ / \ PUOI FRRE CRLCOLI PIU' 

‘•-COMPLESSI. 

/ 

S V. PROVR ! 
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Giorgio deve anche calcolare l’ipotenusa di un triangolo 
rettangolo, i cui lati sono lunghi 3 cm e 4 cm: 

ip = y's 2 + 4 2 


Allora prova: 
ed appare: 


7SQRC3T2+4T2) 


■j 

Giorgio è entusiasta: tutti i calcoli numerici gli sembrano 
molto semplici: 


3 + V25 

4 

Giorgio scrive: 

?C3+SQRC25?V4 


ottenendo: 

2 

MISTER BIT riappare misteriosamente: 


PUOI USARE LE SEGUENTI 
OPERAZIONI 


+ ~ # / f 

E LE FUNZIONI 

ABSC :• ATNC ) 

cose ) EZF< 

1 nt c log e > 

SGNC > SINC ) 

SGR-r ) THN< ■' 



CONTROLLA SUL MANUALE DEL TUO C~64 
E STRI MOLTO ATTENTO ALLE PARENTESI ! ! 
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ECCO RLCUHI ESEMPI 


3+zm< 

3 ~ 3/2 


3m</4 


<5-3>/4 
3#y. T2 

C5-2VC7+2) 


(°LJ 

/T^X 

'i / *» 


V 


/"\ 

I V 


COME LI SCRIVERESTI NON IN BASIC 7 

Non ci sono molte difficoltà, pensa Giorgio, e traduce in 
modo "usuale”: 


3 + 2x 

a-* 

2 

3x 

4 

5 + 3 
4 

3x 2 

5-2 
7 + 2 
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Giorgio deve anche semplificare: 



e quindi scrive: 


risultato è: 


? C r? 'i T'7 • l' 7 /-5 -i TO' 

• ili ui ’J / I l_ 


.131637243 


Ma non è questo che interessa a Giorgio: non deve cal¬ 
colare il valore dell’espressione, deve semplificarla. 
Giorgio prova sul suo quaderno: 



e guarda il C-64: non è sicuro del risultato, ma come 
può aiutarlo il C-64? 

Sa solo calcolare, lui... 

Giorgio preme alcuni tasti perplesso... 

Riappare MISTER BIT: 

PERCHE" NON VERIFICHI ? 

NON HRI FRTTO ERRORI V-" 

DEVONO ESSERE UGURLI ! _/ 


Giorgio rimane interdetto e cerca di capire che cosa 
gli voglia dire il buffo omino. 

All'improvviso, come un lampo: «semplicissimo, se 
non ho fatto errori le due espressioni devono portare al¬ 
lo, stesso risultato!» e rapidamente prova: 


? <2/3 MS 

e batte /RETURN/ con un po’ di ansia. 
Il risultato è lo stesso: 

BRAVO GIORGIO 
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Fa apparire MISTER BIT che sta in un angolo dello 
schermo. 

Giorgio si ricorda di un esercizio che gli aveva dato 
filo da torcere e di cui non è ancora del tutto sicuro. 

Lo ritrova: 

3 = 

V7-2-V5 


3 ( y/7 — 2 + y/5) = 

(V7-2Y-5 

3 (y/7- 2 + y/5) (3 + 2 y/7) _ 

2(3-2 y/7) (3 + 2 y/7) 

- 3 (V7- 2+ y/5) (3 +2 y/7) 

38 

Chissà se posso controllare con il C-64, si dice Gior¬ 
gio. 

E scrive con molta attenzione: 


che dà: 


? 3/ < SQR <. 7 c. 3 :> y 

-1 . 33641673 


e poi: 

7 -3#CSQR(7?-2+SQRC3? '/#■<■. 3+2*3QRC7> :>/3S 

Il risultato è lo stesso: la soluzione era quindi giu¬ 
sta... 


Giorgio è molto soddisfatto di sé. Decide di telefonare 
a Massimo: «Ti devo raccontare tutto quello che ho sco¬ 
perto!» esclama. 
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ESPRESSIONI 

ALGEBRICHE 



In matematica, come nelle altre materie scientifi¬ 
che quali la fisica, la chimica, la statistica, la trigono¬ 
metria, spesso e volentieri ci si trova dinanzi delle 
formule. Spesso una formula non è nient’altro che 
una espressione algebrica, più o meno complessa. 
Utilizzando un computer come il C-64 si possono 
valutare due espressioni in contemporanea sostituen¬ 
do, per ogni variabile, dei valori a piacere; in questo 
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modo si può controllare rapidamente l’esattezza di 
un passaggio algebrico o delle semplificazioni che 
siamo riusciti ad immaginare. 

Non più esercizi di cui non possiamo essere sicuri 
dell’esattezza: il nostro computer non solo ci dirà se 
abbiamo sbagliato — prima di «rimediare» un brutto 
voto in classe — ma ci insegnerà anche qual è il me¬ 
todo corretto per affrontare la verifica di una espres¬ 
sione algebrica utilizzando quel nuovo, raffinato 
strumento di calcolo che è il nostro computer. 


«Ma l'algebra non è solo fatta di numeri» brontola tra 
sé Giorgio, un quaderno aperto davanti, il calcolatore di 
lato. Le espressioni algebriche contengono numeri e 
lettere, le semplificazioni sono spesso complicate, a 
volte oscure... Per esempio questaespressione: 

x 2 -a 2 + 2ab-b 2 = 

Giorgio ha trovato i passaggi seguenti: 

x 2 - a 2 + 2ab - b 2 = 
x 2 -(a-b) 2 = 

(x + a - b) (x - a + b) 

ma non è molto soddisfatto: prova a rifarli in ordine in¬ 
verso, sembra andar bene... Preme il tasto /RETURN/ 
del C-64: ed ecco comparire ancora MISTER BIT: 



Giorgio scrive la sua espressione, preceduta dal 
punto interrogativo: ovviamente la risposta è 0. Non ser¬ 
ve a nulla, pensa tra sé Giorgio, ma MISTER BIT fa ap¬ 
parire: 
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SE NON HRI FFÌTTO errori 
LE TUE ESPRESSIONI SONn 
UGUHLI PER HURLUNQUE 
VRLORE NUMERICO RTTRIEUITn 
RLLE LETTERE 
X R E» 


[. ZlLr ] 

/V7\ 

A 



PROVR CON IL FROURRNMR 

10 R-3 
20 B=13 

40 FRI NT CXtZ-Rt2+2#R*E-BT2> \_ 

30 FRI NT <. CX+R-B)#CX-R+B30 
60 END 
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E POI PROVH R ORMEIRRE 
I NUMERI RTTRIEUITI R 

p| r; 

NELLE RIGHE IO 20 30. 

Giorgio scrive il programma, dà il comando /RUN/, 
poi cambia più volte le righe 10, 20, 30, incredulo... 
MISTER BIT gli manda un messaggio: 


ERRIOR LE 3UBR0UTINE3 

POI COR IR IL FROGRRMMR .J®. 

'ys' ' 

'ESPRESSIONI RLGEERICHE" 


Giorgio ubbidisce, ha già copiato le subroutines del- 
I appendice. Le carica dal nastro, poi comincia a copia¬ 
re con attenzione il listato. Appena finito lo salva su na¬ 
stro (gli dà il nome «PROVA») e poi con un po’ di ap¬ 
prensione dà il comando /RUN/. 

Funziona! Il video appare come in figura, proponen¬ 
do 5 scelte, e mostrando nel contempo le due espres¬ 
sioni attualmente in uso. 

Giorgio sceglie la prima attività: lo schermo cambia e 
può scrivere un’espressione matematica con le variabili 
oio e ^. ere . a scelta (devono essere accettabili per il BA¬ 
SIC quindi al massimo 2 caratteri, di cui il primo alfabe¬ 
tico) come XI, X2, TI, M, P, ecc. 

x ,^.. t ® rn 2 ine dell’espressione Giorgio batte il tasto /RE¬ 
TURN/. Se invece di scrivere la nuova espressione 
Giorgio avesse battuto subito il tasto /RETURN/ l’e¬ 
spressione presentata dal video non sarebbe cambia- 


, . Analogamente la seconda attività permette di cam¬ 
biare E2, I altra espressione. 

La terza attività (VARIABILI), deve essere eseguita al- 
meno una volta dopo aver caricato il programma e 
chiede i nomi delle variabili usate (al massimo 9). Dopo 
aver inserito I ultimo nome, alla domanda del nome suc- 
TURN/ 0, Glor9 '° deve rispondere battendo solo /RE- 

Scegliendo una delle altre due attività lo schermo si 
presenta come nelle figure, chiedendo a Giorgio il valo- 
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re delle variabili usate e fornendo poi i risultati calcolati 
in due modi diversi: come numero decimale oppure 
cercando di trasformarlo in frazione. 

Poiché in questo tentativo il C-64 può impiegare molto 
tempo, Giorgio può dire al programma di saltare questa 
parte, rispondendo /N/ alla domanda «VUOI CHE CER¬ 
CHI LA FRAZIONE». 

Massimo, quando vede funzionare il programma, gli 
trova subito un’altra applicazione: «Ma va bene con 
qualsiasi formula: pensa a tutti i calcoli delle esercitazio¬ 
ni di fisica...». 

COME FUNZIONA 

Il programma risulta costituito da cinque parti che si 
presentano come subroutines, scelte nelle righe 1040- 



X = 4.3 

fl — 67.03 


E1=X#X-fl*R+2*fì*E-B*E 
E 2= OC+fì-B > * C X-R+B ? 


VMmM _ 

DAI IL VALORE BELLA 
VARIABILE 
E = 5.205 
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1100, tramite la SUBROUTINE 9. 

È più facile cominciare a vedere il funzionamento del 
programma partendo dalla quarta attività, cioè quella 
da riga 5000 a 5830, che è la principale. Questa parte 
del programma calcola il valore di E1, una espressione 
algebrica. A riga 5000 si imposta la variabile EX a 1 (ve¬ 
dremo dopo a che cosa serve) e si usa la SUBROUTI- 
NE 1 per pulire lo schermo. Si usa anche una subrouti¬ 
ne che inizia a riga 7000: è un pezzo di programma 
usato più volte, che quindi conviene scrivere in forma di 
subroutine, ma è usata solo da questo programma: è 
una subroutine «locale». Come si vede da riga 7040, 
questa subroutine fa apparire a riga 12 dello schermo là 
nostra espressione E1, se EX è uguale a 1, altrimenti fa 
apparire, oltre a E1 anche E2 (riga 7060). 

Le righe 5304, 5306, 5308 definiscono gli elementi di 



E1=X#X-R*R+2*R*B-E*B 
E2=C X+R-B> * <X-R+B > 


%mmm 

vuoi 

CHE CERCHI LR 
FRAZIONE CS/N> 
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un vettore di stringhe: in pratica sono i nomi delle varia¬ 
bili usate nella nostra espressione: la prima variabile 
usata è x, e la stringa VA$(1) è proprio ”X”. 

Questo ci serve per la riga 5420, in cui si chiede il va¬ 
lore delle variabili usando il loro nome. Trascuriamo per 
il momento la riga 5400; vedremo oltre perché è neces¬ 
saria. 

Usiamo la SUBROUTINE 7 per introdurre i dati, ovvia¬ 
mente, e così i valori numerici introdotti saranno nel vet¬ 
tore (di numeri, questa volta) VR( ). 

Nelle righe 5504-5508 vengono attribuiti, alle variabili 
effettivamente usate nella nostra espressione, i valori 
che abbiamo introdotto e che sono nel vettore VR( ). Si 
salta a riga 5600, dove sono calcolate le nostre espres¬ 
sioni, E1, E2. A questo punto la riga 5680 usa la SU- 
BROUTINE 6 per chiedere se si vuole che il programma 
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effettui il tentativo di trasformare il risultato in frazione. 

Se si risponde /S/, la subroutine locale che inizia a ri¬ 
ga 7100 prova con frazioni aventi il denominatore mino¬ 
re di 100. Se viene trovata una frazione di cui il valore 
sia uguale al risultato (entro un'approssimazione di 10 6 - 
riga 7150, per eliminare gli eventuali arrotondamenti di 
calcolo), la frazione è stampata dopo il risultato (riqa 
5720). 

Se EX è uguale a 1, è stampato solo il risultato E1 (ri¬ 
ghe 5700-5710), altrimenti è stampato anche E2 (riga 
5720) e la differenza E1-E2 (riga 5730). 

Si usa la SUBROUTINE 6 per dare l'opportunità di ef¬ 
fettuare un altro calcolo (GOTO 5010) oppure passare 
ad un’altra attività (RETURN) ed il programma continua 
con riga 1110. 

Il programma che inizia a riga 6000, CALCOLO DI E1 
E E2 è praticamente quello già visto, con la differenza di 
riga 6000, che pone EX uguale a.2, e cambia il titolo, 
per poi continuare con riga 5010: praticamente è lo 
stesso programma, con due righe di inizio diverse (riga 
5000 e riga 6000) ed un comportamento leggermente 
differente a seconda della variabile EX. Si sarebbe po¬ 
tuto continuare dopo riga 6000 all’incirca come dopo ri¬ 
ga 5000, e in questo caso non si avrebbe avuto bisogno 
della variabile EX, ma il programma sarebbe stato molto 
più lungo. Il risultato sullo schermo lo potrete vedere in 
figura. 

Vediamo ora le altre parti: la subroutine che inizia in 
riga 2000, CAMBIO DI E1, si occupa essenzialmente di 
modificare due righe del programma che abbiamo ap¬ 
pena visto, precisamente la riga 5600 e la riga 7000, 
per permettere di modificare l’espressione E1. 

Infatti comincia con la SUBROUTINE 1 (riga 2000) e 
la subroutine locale 7000, che preparano lo schermo. 
Poi le righe 2010 e 2020 chiedono E1, la prima espres¬ 
sione, usando la SUBROUTINE 8 - INGRESSO STRIN¬ 
GA -, Se si batte solo il tasto /RETURN/ non succede 
nulla: Rl$ è uguale a "N" e il programma torna a riga 
1110. Se invece si introduce un'espressione, questa è 
nella stringa ST$. Nelle righe 2100 e 2110 si prepara, 
usando ST$, la nuova riga 5600. Da notare che per inse¬ 
rire delle virgolette in una stringa, si deve usare la fun¬ 
zione CHR$(34), Nella riga 2130 si prepara anche la 
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stringa P3$, necessaria per rilanciare il programma da 
riga 1000, poi si passa alla SUBROUTINE 10, che si oc¬ 
cupa della effettiva modifica. 

In questo modo, le righe 5600 e 7000 conterranno la 
nuova espressione algebrica che abbiamo introdotto, e 
vedremo sullo schermo che E1 risulta modificata. 

La subroutine che inizia a riga 3000 è in tutto analoga 
alla precedente, con la differenza che si occupa di E2 e 
modifica le righe 5610 e 7010. 

Resta da esaminare il programma che inizia a riga 
4000, che modifica anch'esso delle righe, ma per ag¬ 
giornare i nomi delle variabili usate. 

Le nostre espressioni algebriche possono usare per 
le variabili nomi qualsiasi di una o due lettere (come per 
il BASIC, vedi il manuale C-64), come X, A, T, XI, X2, FI 
etc... A seconda delle variabili usate occorre modificare 
il programma di calcolo già visto, alle righe da 5304 in 
poi e 5504 in poi. 

Cominciamo da riga 4010: come al solito si pulisce lo 
schermo con la SUBROUTINE 1, poi si dà ad I il valore 
preso con una istruzione /PEEK (828)/. 

Si deve fare così perché l'uso della SUBROUTINE 10 
fa perdere il valore delle variabili. Il valore della variabi¬ 
le I verrà conservato nella locazione di memoria 828 
che non è disturbata dalla SUBROUTINE 10 e quindi lo 
si ritroverà anche dopo. Quando questo programma 
viene usato la prima volta, provenendo da riga 1100, 
vediamo che a riga 4000 si dà il valore 1 alla locazione 
828, che è ripreso da I in riga 4030, mentre si mette in 
828 un valore incrementato, pari a 2 la prima volta. Le 
righe 4040, 4050, e 4060 preparano la domanda che 
sarà presentata dalla SUBROUTINE 8. 

La stringa con il nome di una variabile sarà in ST$, I è 
incrementato, cioè vale ora 2, e il programma continua 
con la riga 4200. 

Alle righe 4200-4210 si prepara la nuova riga 5504, 
mentre alle righe 4220 e 4230 si prepara la nuova riga 
5304. 

Nella riga 4240 si prepara la stringa P3$, che rilancia il 
programma a riga 4010, poi si va alla SUBROUTINE 10. 
Quest'ultima modifica le due righe che deve modificare 
e il programma riprende a riga 4010. 

Ora alla locazione 828 troviamo 2, quindi dopo la SUB- 
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ROUTINE 8 saranno modificate le righe 5506 e 5306 
che conteranno la seconda variabile, e così via. 

Vediamo che cosa succede quando abbiamo finito 
con i nomi delle variabili, e battiamo solo il tasto /RE¬ 
TURN/; in questo caso, a riga 4070 invece di continuare 
con la riga 4200, continuiamo con la riga 4100. 

Viene modificata una sola riga, nel nostro esempio la 
5510, con un /GOTO 5600/ per evitare che qualche 
vecchia variabile influenzi il nuovo calcolo, e P3$ contie¬ 
ne l’indicazione necessaria per ritornare a riga 1000. 

Ricordiamoci che in 828 c'è un numero pari al nume¬ 
ro delle variabili aumentato di 2. È usato in riga 5400 per 
attribuirlo a IM e per controllare, a riga 5430, se sono 
stati chiesti tutti i valori delle variabili o no. 


931 
1000 
1001 
1003 
1020 
1023 
1040 
1050 
1060 
1070 
1030 
1090 
1100 
1110 
1113 
2000 
2003 
2010 
2020 
2030 
2033 
2100 
2110 
2120 
2130 


r e n * % # mm # $ $ $ * % % % w. % # # w. % * % % % % % % % % * 

PRT" "ESPRESSIONI FHLGEBRICHE" 

RE\wmmm w. $ * * * % % % % % % $ % $ $ % % % % % * 


O 0 S U E S000 ; G 0 SIJ E 7000 

PN$C 1 "} = "CANE10 IH El" 

PN-TCANE10 EI E2" 

FN$ 3 — " VRRI RE ILI" 

PN$C4-"CRLC0L0 IH El” 

PN$C ZO-" CRLC0LD HI E1&E2" 

PN=5 : 00SUB 3400 

0N PS00SUE 2000 .■ 3000.- 4000,5000 , 6000 
GOTO 1000 

PR$=FN:K1? : GOSUE 8000 : OOSUB 7000 

n 1 $=" SCRIVI L. •' ESPRESSI ONE " 

P12f= " " : PI 3$- " E1 " : GOSUE 3000 

!F RIT~"N" THEN RETURN 

PI$="7000 E1 " 

p i $=F l $+CHR$ C 34 5 +ST$+CHR$ < 341 1 
P2$s •’5600 E1 " +ST$ 

PEhi—"GOTO 1000": GOSUE 3200 
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3000 FN$C2? : GOSUE 3000 : COSUE 7000 
3003 : 

3010 PII$= "SCRIVI L'ESPRESSIONE" 

3020 N2^="" :P135 ; ="E2= " : COSUE 9000 
3030 IF RI$="N" THEN RETURN 

3033 : 

3100 PIf =="7010 E2#-" 

3110 P1$=P1$+CHR$ C34)+STT+CHR$ C34 ? 

3120 P2$“"5610 E2="+ST$ 

3130 F35—"GOTO 1000" : GO3UB 9200 

HI 

•'« I 

4000 F'OKE 328.. 1 

4010 FRT-- " VflR IRE ILI" : GOSUE 8000 
4020 GOSUE 7000 
4030 I=PEEKC823):FOKE 828,1+1 
4040 MI $="SCRIVI I NOMI BELLE " 

4030 n2$~"VflRIREILI USRTE" 

4060 N3$="VRR "+STR$(I? + "> " 

4070 GOSUE 9000 :IF RI$="S" THEN 4200 
4073 : 

4100 P1$=STR$C5500+2*I?+" GOTO 5600" 

41.18 P2$= " ” : P3f- " nnTR \ Firn " : GOSUE 920O 
4113 : 

4208 F1$“STR$<5500+2*I)+" "+ST$+"-v'RC" 

4210 P1 $~F 1 $+STRT >: I -1 ) + " ;■ " 

4220 P2$=STR$C5300+2*I> + "VRTC"+STRTCI-1 ? 
4230 F2$=P2$+">="+CHR$t34?+5T$+CHR$C34) 
4240 F3$~ : "GOTO 4010" : GOSUE 9200 
4243 ■ 

5000 EK~l : FRT=FNT C 4 ) 

5010 GOSUE 8000'GOSUE 7000 

5304 VR$C 1>-"v" 

5306 VFI$< 2>~"R" 

5308 VR$C 3> = "B" 

33 So 

5400 I M=FEEK828 ) : I ~ 1 : H2$= " VRRI REI LE" 
5410 01 " UH I IL. V FILO RE DELLA" 
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5420 

5423 

5430 

5433 

5504 

5506 


n3S=VR$CI? + " " : OOSUE 8300 

IF K(iri-l) THEN 5420 


n=v r >: r; 

R-VR ■' 


5508 

E-VE 

5510 

GOTO 

ffj C‘ O' 


5680 

E1 =X 

5610 

E2-C 

cr /r *7* 

JbO-J 


5680 

NI 


i_-• 


UOI " : M2$= "CHE CERCHII LR " : N3T= 
" FRRZI OHE (. S/N> " : OOSUE 8400 : FR$=EI ¥ 
5690 IF FEf-~ " S " THEN PI 1 ¥= " " : N2$= " " : M3f « " 
ATTENDERE" : GOSUE 8S0@ : POKE 645■04 
5708 RC-16 : OOSUE 8100 : PRI NT " E1 ~ ; E1 : •' H~ 
E1 


5710 


5713 

5720 

5730 

rcr ~7 **~i 
Jl u'-J 

5740 

5750 


5760 

5780 

5800 

5810 

5820 

5830 


OOSUE 710)0 : IF RI ¥- "N" THEN FRINT : 00 
TO 5730 

FRI NT"-".: NIC "/" Z 
IF EX=1 THEN 5880 

FRINT"E2 ~";E2.; : N=E2 

OOSUE 7100 IF RI ¥~ "N " THEN FR I NT : 00 

TO 5780 

peint"=".;nu; v n ;z 

PRINT ,, E1“E2=";E1-E2 
n1¥-"VUOI CRLCOLRRE" 

M2J="C0H ALTRI":N3$="VALORI CS/NJ?" 
GOSUE 8408 : IF RI$="N" THEN RETURN 
GOTO 5010 


6080 EX-2 '■ PR$“PN$ <5 > : GOTO 5010 
6993 • 

7080 E1 ¥- " X#X-R#fl+2#R#E-E#E " 

7010 E2$= " C X+R-B ? * < X-R+B ) " 

7023 : 
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7040 R e: ~ 1 2 ■ n n S i_l E 8 1 0 0 : P RIH T " E 1 
7050 IF EX=1 IHEH RETURN 
7060 PRINT”E2~"; EST : RETURN 


El$ 


7063 : 

7100 RI:£~ : "N" : IF FR$="N" THEN RETURN 
7110 ND=INT<N> : IF NB=N THEN RETURN 
7120 Z“2 


7130 K=0 
7140 NU=ND*Z+K 

7150 IF INTC CNU/Z>*10T6>/< 10T6> = INT>rN* 10 
T6 > / (. 10 TS > THEN 7130 
7160 K-K+l : IF KCZ THEN 7140 
7170 Z“Z+1 : IF Z-C100 THEN 7130 
7188 RETURN 
7130 RI" S " : RETURN 

7133 REM******************************* 
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POLINOMI IN X 



Il primo scoglio che si affronta in algebra sono i 
polinomi. 

Finché si è trattato di monomi più o meno tutto è 
andato bene anche perché un solo coefficiente e una 
sola parte letterale sono «piccoli», facili da capire e 
da gestire. Quando però i monomi si ammucchiano, 
diventano tanti, uno in fila all’altro come tanti vago¬ 
ni di un lungo treno merci, si resta molto spesso alli¬ 
biti e stupefatti nel vederseli passare davanti. Eppure 
l’espressione algebrica può contenere come variabile 
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«soltanto» la x — abbiamo cioè quello che, pompo¬ 
samente, in algebra viene definito come polinomio in 
x —. Bene, il nostro C-64 non solo è in grado di pa¬ 
ragonare i valori di due polinomi tra di loro ma può 
anche calcolarne il risultato per tantissimi valori che 
decidiamo di assegnare alla variabile x. Questo calco¬ 
lo immediato e rapido del valore di un polinomio 
non solo ci metterà in grado di effettuare rapidi con¬ 
trolli e verifiche ma anche di ottenere facilmente tutti 
gli elementi necessari per tracciare grafici e curve! 
Altro che i lunghi, faticosi calcoli da eseguire con 
una calcolatricetta tascabile o — addirittura — a ma¬ 
no con la conseguente enorme possibilità di errori! 

Siamo o non siamo nell’epoca dei computer? Il no¬ 
stro amato schiavo si dia da fare: non solo il compito 
sarà fatto presto e bene ma ci rimarrà anche un muc¬ 
chio di tempo per uscire. 


Massimo è convinto siano più facili: «Vedi, in questi 
polinomi compare solo la lettera x: è meglio, no?». Gior¬ 
gio ha invece qualche perplessità: 

(Sx -1) z - 16 (4x -3)= 25x 2 - 74x + 49 

È vero che contiene solo la variabile X, e quindi è meno 
facile fare errori, ma a Giorgio piacerebbe poter control¬ 
lare ogni passaggio, per avere la soddisfazione di dire: 
«Ho fatto bene!». Massimo lo provoca: «Ci vorrebbe un 
programmino...». 

Giorgio copia velocemente POLINOMI IN X, che per¬ 
mette di calcolare e confrontare un polinomio ordinato 
ed un'espressione in x. 

Delle quattro attività tra cui scegliere, le prime due ri¬ 
guardano l'introduzione di un polinomio ordinato e di 
un'espressione algebrica nella variabile x. Se il polino¬ 
mio è ordinato, appaiono delle domande che chiedono 
a Giorgio prima 11 grado massimo del polinomio, poi i 
coefficienti in ordine decrescente fino al termine noto. 
Se un termine manca, Giorgio batterà solo il tasto /RE¬ 
TURN/. Il polinomio è poi ricostruito dal programma ed 
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appare sullo schermo come P(X). La funzione F(X) è in¬ 
vece scritta direttamente da Giorgio secondo le regole 
del BASIC, come già visto nel programma precedente. 
La terza attività permette di calcolare sia P(X) sia F(X) 
per un valore qualsiasi di X: è quello che fa Giorgio per 
controllare il suo polinomio (v. figura). 

Per terminare questa attività, basta non introdurre un 
valore per X, ma battere solo il tasto /RETURN/: il pro¬ 
gramma ripresenta la scelta iniziale. 

L’ultima possibilità (TABULATO) consiste nel calcola¬ 
re automàticamente P(X) e F(X), per valori di X a partire 
da un minimo (START) fino ad un massimo (END), au¬ 
mentando ogni volta X della stessa quantità (STEP). 

Massimo è ammirato: «Questa ultima possibilità può 
essere sfruttata quando si deve disegnare un grafi¬ 
co!». 
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COME FUNZIONA 

Per prima cosa (riga 110) si usa la SUBROUTINE 1 
per pulire lo schermo, e la subroutine locale di riga 500 
che fa apparire a riga 13 dello schermo sia P(X) che 
F(X). Preparato così lo schermo, si può scegliere tra le 
quattro funzioni del programma tramite la SUBROUTI- 
NE 9, a riga 300. 

Lo schermo si presenterà come in figura. 

Vediamo per prima la funzione principale — CALCO¬ 
LO P(X); F(X) — che inizia a riga 3000. Le solite subrou- 
tines si occupano dello schermo, poi si chiede il valore 
della variabile X per la quale vogliamo calcolare P(X) e 
F(X) (righe 3010-3030), tramite la SUBROUTINE 7. 

Se si introduce un valore, poiché 1=0 (riga 3020), lo 
ritroviamo in VR (0) ed infatti nella riga 3100 si attribui- 
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sce ad X tale valore, poi si va ad un'altra subroutine lo¬ 
cale, a riga 3500. 

Questa subroutine a riga 3500 calcola il valore di P(X) 
ed a riga 3510 calcola invece quello di F(X); le righe 
3520 e 3530 stampano i risultati su due righe dello 
schermo che prima puliscono, stampando S$, stringa di 
soli spazi. Con la riga 3540 si ritorna al programma 
chiamante. 

La riga 3100, dopo aver usato la subroutine 3500, 
continua facendo ricominciare il programma a riga 
3020. 

Se però non si inserisce un valore per X, ma si batte 
solo /RETURN/, il programma termina a riga 3040, tor¬ 
nando a riga 320. 

A riga 4000 comincia la funzione TABULATO del pro¬ 
gramma, al solito preparando lo schermo. Vengono poi 


TABULATO 

START 10 

END X= 40 

STER: X= 2.* 


X= 10 


POO= 1803 


FOO= 1803 


P 00= 25*XT2-74*X+49 


FOO=< \y*x 5#X-1 >-1 6* 

******* 

4*X-S 1 

SE VUOI 

CONTINUARE 

PREMI UN TASTO 
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chiesti tre valori numerici: il valore iniziale di X (righe 
4010-4030), quello finale (righe 4040-4050) ed il valore 
dell'Incremento (righe 4060-4070). 

I numeri introdotti saranno rispettivamente in VR(0), 
VR(4), VR(2). 

Cominciando dal valore iniziale (riga 4100), viene 
stampato a riga 6 dello schermo il valore di X ed è usata 
la subroutine locale a riga 3500 per calcolare e stampa¬ 
re i risultati (righe 4110, 4120). La riga 4130 calcola il 
nuovo valore di X, e la riga 4300 usa la SUBROUTINE 5 
-PAUSA- per far vedere i risultati. Quando si preme un 
tasto, se non si è superato il valore finale, il programma 
presenta i nuovi valori (ricomincia da riga 4110), altri¬ 
menti termina ritornando a riga 320. 

Le altre due funzioni del programma servono per de¬ 
finire P(X) e F(X). 

Nel caso di P(X) si tratta di un polinomio ordinato, e il 
programma, dopo aver preparato al solito lo schermo 
(riga 1000), chiede il grado massimo (righe 1010- 
1030), tramite l'uso della SUBROUTINE 7. 

II numero introdotto è in VR (0) ed è attribuito anche 
alla variabile GM. 

Verrà controllato che sia compreso tra 1 e 9 (riga 
1040), ripresentando la domanda se GM supera tali li¬ 
miti. 

Le righe 1100 e 1110 preparano le domande per i 
coefficienti, chiesti tramite la SUBROUTINE 7, tante vol¬ 
te quanto è il grado del polinomio (la riga 1130 ripresen¬ 
ta la domanda il numero di volte necessario). Le righe 
1200 e 1210 chiedono il termine noto. 

A questo punto si deve costruire una stringa con il po¬ 
linomio, utilizzando i coefficienti introdotti e moltiplican¬ 
do per la variabile X con l'esponente appropriato. Di 
questo si occupano le righe da 1300 a 1400. 

Ora PX$ contiene il polinomio ordinato che abbiamo 
introdotto. Le righe da 1500 a 1530 preparano le strin¬ 
ghe per usare la SUBROUTINE 10, per modificare la ri¬ 
ga 510 e la riga 3500, riprendendo il programma alja ri¬ 
ga 100. 

Più semplice è la parte di programma che modifica 
F(X) e che comincia a riga 2000, pulendo lo schermo. 
L'espressione F(X) è chiesta direttamente come stringa 
(righe 2010-2030) tramite la SUBROUTINE 8. Se non si 


39 



































n 






ALGEBRA CON C-64 





















introduce nulla il programma torna a riga 320 (riga 
2040), altrimenti prosegue, preparando le stringhe per 
modificare le righe 520 e 3510. Poi (riga 2120) continua 
con la riga 1530, che prepara l'altra stringa (RUN 100) e 
va alla SUBROUTINE 10. 


33 

100 PR$= "POLINOMI IH X" 

103 REM '$:%■%%%% % %%%%'$■%% % $ $ # $ $ ¥ $ '# ^ 

105 : 

110 COSUB 8000 : GOSUE 500 
113 : 

200 PNS a> = " FULIM. OR II I NATO 
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210 PN3K2^"ESPRESSIONE F(X> 

il 

220 pm<: 3) = " CALCOLO FCX? 1 F (X1* 

il 

230 pm- < 4 = " TABULATO 

ii 

300 FN=4 : GOSUB 9400 

310 OH FSGOSUE 1000.. 2000.- 3000.- 4000 

320 GOTO 100 


500 RC=14 : GOSUB 8100 
503 : 


510 

FX$=" 25#X 

:T2-74#X+49" 

520 

r~. *“i 

FKS~ "<5#X- 

1>$(5#K _ 1 y~ 16#(4$X~3 ?" 

■ J 

330 

PRIMI "PCX 

;• = " j PX$ : FRI NT " l CRSR TU F C i 


;>=";fx$ 


540 

RETURN 


543 



1 000 

PRf“FM$ 1 

:GOSUB 8000 : GOSUB 500 

1.003 



1010 

l v i 1 $= " POLI NON 10 GRU IHFITQ " : FX *= " " 

1020 

P12I--” GRADO 

PIASSI PIO" : 1=0 

1 030 

P13$~- " GRADO 

PO') > " : GOSUB 8800 

1040 

1043 
1100 

GM"VR<0? : IF GMC1 OR OPUS* THEH 1020 

P12I= ” COEFF 

ICIENTE DI" 

1110 

N3$*STR$ *' G 

P1+1-I ? + "# GRADO > 

1120 

GOSUB 8300 


1130 

1133 

IF I-CGM+1 

THEN 1110 

12010 

PI21= " TERP11 HE MOTO " 

•j -;i •? «t-i 

1213 

1300 

P'3I=" T. 

NOTO > " : GOSUB 8800 

FOR K=1 TD 

GPU-1 

1 ■* C’i 

T ri • m .*• i •, ..... j-j 

! V P- Y\ — pi 

THEN 1400 

1329 

T j ™ M " | 

OR VRCKX0 THEN PX**PX$+ 


TEI ( VR ( K > 

: GOTO 134@ 

i ■ :> r j 
j. •„* K J 

PX$=PX$+"+ 

"+nIDI(STRIfVR(K>) , 2> 
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1340 IF K-CH-1 THEN 1400 
1350 FX$=PX»+"*X” 

1360 IF K-GM-0 THEN 1400 

1370 px$=fx$+" r' +n i nf- str$ c gm-k+ i , 2 

1400 NEXT 
1403 : 

1500 F1 3= " 510 FNT=" 

1510 PI3=P 1 3+CHR3<34} +PXS+CHR*'■ 34> 
1520 P2f="3500 FX="+FX$ 

1530 P33= " P.UH 100": GOTO 3200 
1533 : 

2000 F R 3 -PN3C2 > : G0SUE 3000 : GOSUB 500 
2003 : 

2010 PU 3="SCRIVI L'ESPRESSIOHE" 

2020 P123-"": 1=0 
2030 P133= " F C. X '} - " : GOSUB 9000 
2040 IF RIf="M" THEN RETURN 
2043 : 


2100 PI 3="520 FK3=" 

2110 PIf-P13+CHR3C34> +ST3+CHR3C34) 
2120 F2$~"3510 FN~"+ST$ : GOTO 1530 

c_ j. r_c 

3000 PR3=FN3 f.3 "} : GOSUB 8000 : GOSUB 500 
3003 : 

3010 PI 13= "INTRODUCI IL VRLORE" 

3020 P123="" : 1*0 

3038 P133="N= " ■ GOSUB 3888 

3033 : 

3040 IF RI3="N" THEN RETURN 
3043 : 

3108 N=VR(0) : GOSUB 3580'• GOTO 3820 



351 


8 FK- 


2 5 % Y. T 2 - 7 4 # N+4 3 
5#N~ 1 :> W- 5#N~1 :> ~ 


1G’T ! ' 4#! : v 


35 1 3 • 

3520 PRINT Sf.: 

3530 PRINT S3; 
3548 RETURN 


t SHIFT3 + l CRSRTIF < 
CSHIFT3+CCRSRT3FC 


; p y 


FN 
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4000 
4003 
4010 
4020 
4030 
4033 
4040 
4050 
4053 
4060 
4070 
4073 
4100 
4103 
4110 
4120 


4123 

4130 

4300 

4303 

4310 

4320 

4323 

4325 

8000 

8003 
8010 
80.13 
8020 


PR$-PN$C4> : GOSIJB 8000 : G05UB 500 


ri 1 $■= " I NTROIlljr: I IL VRLORE " 
ri2f-=" INI2IRLE DI 7" •' 1=0 
113$'- " STRRT X~" : CO SUB 8800 

ri2$="FINALE DI X ■ " 

ri3$=" END X= " : C0S8B 8800 

M2-T™ " DELL ' I HCREriEHTO : " 
ri3$-" STEP : : 80 SU E 8800 

;k-vr<:0:< 


RC=8:GOSUE 8100 

PRI NT S$;"CSHIFT3 + CCRSR T3 X-"; X : GOSU 
E 3300 


X=X+VRC2> 

ri2$- " CO NT INURRE " : GOSUE 


8200 


IF XC-VRC1) 
RETURN 


'NEH 4110 


r f n W- W. $ $ $ $ T $ % % % % % % $ W- ¥ * # # $ % $ # #W$ 
PRI NT "CSH1FI3 + L HONE3":C0=0 : C1=3 : CI 


:C3-0:C4-5 


C5=6 : ce 

FGKE 3:: 


PURE 

S$=" 


-7 ■ nV= 1024 : riC-53236 


265 ■ PEEK'- 53265 •' OR 64 
280C0 : PURE 5328 1 .■ C3 
: POR 1-0 TU 33 : S$=S$+” " : NEXT 


- 
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POLINOMI 

ORDINATI 




POLIMONI ORDÌURTI 

1 = NUOVO POLIMOriIO 

2 = IN MEMORIR 

MX+PX 

3 = PR MEMORIA 

PXH1X 

4 = sommr 

PX+QX 

5 = DIFFERENZA 

PX-QX 

6 = PRODOTTO 

PX*QX 

7 = QUOZIENTE 

PX/QX 

PX= 3*XT2-2*X+6 


QX= 7#XT3-3#X 


MX= 7#X13-3*X 


******* 


SCEGLI CHE COSR 

VUOI FRRE > 





Questa dei polinomi ordinati è sempre stata una 
iattura per tutti gli studenti intelligenti e «bravi» in 
matematica. In effetti le operazioni sui polinomi or¬ 
dinati sono in se stesse molto semplici e, dopo un po’ 
di studio, non dovrebbero presentare nessuna diffi¬ 
coltà. In pratica, però, proprio i polinomi ordinati 
sono la classica buccia di banana su cui si possono ri¬ 
schiare dei voti veramente brutti. Per giunta le ope- 
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razioni sui polinomi ordinati sono tanto più antipati¬ 
che in quanto questo argomento viene sviluppato dai 
professori — forse lo fanno apposta — proprio poco 
prima delle interrogazioni conclusive del quadrime¬ 
stre. Siamo in pieno «rischio»; se sbagliamo una cosa 
ripetitiva e concettualmente facile non ce la possiamo 
prendere con nessuno salvo che con noi stessi e con 
la nostra faciloneria. Ci servirebbe un aiuto, un ami¬ 
co attento, pignolo, che ci permetta di non uscir fuori 
dall’alveo della correttezza e del rigore algebrico. 
Questo amico c’è ed è proprio il nostro caro C-64 
che docile e gentile si trasforma in una «calcolatrice 
per polinomi» che, rapidamente e senza errori, è in 
grado di eseguire ognuna delle quattro operazioni 
fondamentali. 

Perfino la «complicatissima» divisione di due poli¬ 
nomi può essere verificata immediatamente. Noi ed 
il nostro computer insieme e sicuri anche nei mean¬ 
dri più paludosi di questa algebra a volte bella e a 
volte «greve». 


I polinomi si possono sommare, sottrarre, moltiplica¬ 
re, dividere... 

«Ma non esiste una calcolatrice per polinomi.» si 
rabbia Giorgio con il suo C-64. 

MISTER BIT compare in alto: ^ 

^r» 

HE SEI SICURO ? * V 

PROVE UN PO ' CON QUESTO PROGRAMMA j 

Giorgio quindi carica il programma SUBROUTINES, 
poi si mette di buona lena a copiare il listato. 

Completato il programma, Giorgio lo salva sul nastro, 
e poi prova: lo schermo appare come in figura. Sce¬ 
gliendo NUOVO POLINOMIO, si può inserire P(X), sce¬ 
gliendo ancora NUOVO POLINOMIO il polinomio P(X) 
diviene Q(X), e quello nuovo che si inserisce andrà in 
P(X). Il massimo grado ammesso è 9. 

II risultato di un'operazione si ritrova in P(X), per per- - 
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mettere operazioni in catena, come con una calcolatrice 
tascabile. 

Giorgio, per esempio, ha calcolato direttamente: 

(3x + 5) 2 (7x -4) + 3x 2 - 2x 

Ha introdotto due volte 3x+5 e, facendo il prodotto, ha 
ottenuto in PX: 

9x 2 + 30x + 25 


Poi ha introdotto 7x-4, quindi può effettuare un secon¬ 
do prodotto, e poi sommare 3x-2x al risultato: 

63x 3 + 177x 2 + 53x - 100 


MUOVO POLINOMIO 


GRRDO PX > 

2 

2 # GPRDO > 

3 

1# GRADO > 

2 

T. NOTO > 

6 

PX= 3#XT2-2¥X+6 

******* 

POLINOMIO ORDINRTO 

E' OK ? (S/N> 

> 
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COME FUNZIONA 

Anche questo programma inizia pulendo lo schermo, 
presentando i due polinomi (riga 110) e poi chiedendo 
quale operazione si intenda fare (righe 200-300). 

A seconda della risposta alla SUBROUTINE 9 si con¬ 
tinua con la subroutine appropriata. 

Se si sceglie NUOVO POLINOMIO si va a riga 1000, 
che per prima cosa pulisce lo schermo, poi sposta in 
Q(X) il polinomio P(X). Questo avviene in due fasi: a riga 
1000 per le stringhe, e a riga 1010 per i coefficienti. In¬ 
fatti i polinomi ordinati in questo programma sono con¬ 
servati sia come stringa (PX$ e QX$), sia come vettori di 
coefficienti (PX(K) e QX(K)). 

Il programma prosegue con le righe 1100-1120, che 
usano la SUBROUTINE 7 per chiedere il grado del nuo- 
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vo polinomio, mentre la riga 1130 controlla che sia infe¬ 
riore a 9, altrimenti ripete la domanda. 

Vengono poi chiesti i coefficienti per i vari gradi (righe 
1200-1230) e in ultimo il termine noto. Se, per esempio, 
il nostro polinomio è di terzo grado, ora VR(0)=3, e 
VR(I), VR(2), VR(3) contengono rispettivamente i coeffi¬ 
cienti di terzo, secondo e primo grado, mentre VR(4) 
contiene il termine noto. Questi numeri sono trasportati 
nel vettore PX(K) alla riga 1320, poi si usa la subroutine 
locale a 2800 per ottenere dai coefficienti PX( ) il poli¬ 
nomio in forma di stringa, moltiplicandoli per la variabile 
X con gli opportuni esponenti. 

La riga 1340 fa apparire il polinomio P(X) a riga 14 
dello schermo, e si usa la SUBROUTINE 6 per controlla¬ 
re che non ci siano errori. In caso di sbaglio si può rein¬ 
trodurre il polinomio P(X) ritornando a riga 1100, che ri- 
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chiede tutti i valori, altrimenti si torna alla scelta iniziale. 

Scegliendo ancora il programma 1, il polinomio già 
introdotto diviene Q(X) e quello che si introduce diverrà 
P(X). 

Introdotti così due polinomi, si può passare ad ese¬ 
guire operazioni su di essi. La SOMMA PX+QX inizia a 
riga 2000, utilizzando la subroutine locale che inizia a ri¬ 
ga 2700. Questa subroutine pulisce lo schermo, fa ap¬ 
parire i due polinomi (righe 2700, 2710), e controlla che 
esistano entrambi, moltiplicando i gradi dei polinomi tra 
loro. Se manca un polinomio, il suo grado è zero, ed il 
prodotto è anch’esso zero: in questo caso (riga 2730) 
appare un messaggio di errore, e la stringa Rl$ è uguale 
a "N". Infatti tornando al programma chiamante, vedia¬ 
mo che a riga 2010 si controlla Rl$ e, in caso di errore, 
non si continua nella somma, ma si salta a riga 2400. 


QUOZIENTE PX/QX 

PX= l#XT4-6*XT3+2*> 

T2-5*X+4 

QX= l*XT2-2*X+4 


RESTO 


=-9*X+44 


QUOZIENTE PX/QX 


= 1*XTZ-4#X-10 

******* 


SE VUOI 

CONTINURRE 

PREMI UN TRSTO 
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La somma viene effettuata sommando i coefficienti di 
pari grado tra loro, mettendo il risultato nel vettore PX( ). 
Di questo si occupano le righe 2120-2220. La riga 2240 
cancella il polinomio Q(X), che non serve più, sia come 
stringa, sia mettendo a zero il suo grado, poi si utilizza la 
subroutine locale per ottenere la stringa PX$, che rap¬ 
presenta il polinomio somma cercato. 

Le righe 2300, 2310 mostrano il risultato sullo scher¬ 
mo, e le righe 2400, 2410 utilizzano la SUBROUTINE 5, 
PAUSA, prima di tornare a riga 320. 

Il programma che inizia a riga 3000, DIFFERENZA 
PX—QX è nelle prime due righe identico al precedente 
(righe 3000, 3010), dopo di che tutti i coefficienti di Q(X) 
sono cambiati di segno (riga 3020). Ora il programma 
può continuare come una somma, ed infatti continua 
con riga 2100 della somma. 

Il programma del PRODOTTO inizia a riga 4000, an- 
ch’esso con la subroutine locale 2700. 

Per effettuare il prodotto, prima si spostano i coeffi¬ 
cienti PX( ) nel vettore VR( ), riga 4100, poi si calcola il 
grado del risultato (riga 4110) e si rendono nulli tutti i 
coefficienti di PX( ). Dopo di che si moltiplicano tutti i 
coefficienti di VR(K) per ogni coefficiente di QX(H) som¬ 
mando il risultato al giusto posto in PX( ). Al termine 
PX( ) conterrà i.coefficienti del risultato, e il programma 
può continuare a riga 2240, per le rimanenti cose da fa¬ 
re, che sono le stesse di quelle della somma. 

La parte di programma per la DIVISIONE, oltre i con¬ 
trolli effettuati dalla subroutine 2700, controlla anche il 
grado del divisore Q(X) non sia maggiore del grado del 
dividendo P(X) (riga 5100), attribuito a VR(0). Infatti al 
termine della divisione VR( ) conterrà il risultato, e PX( ) 
il resto. 

La riga 5210 calcola i coefficienti del quoziente, men¬ 
tre la riga 5230 calcola il resto; la riga 5240 usa la su¬ 
broutine di riga 2800 per trasformare il resto in stringa 
PX$, che è visualizzato da riga 5250. 

Il quoziente viene trasferito nel vettore PX( ) dalla riga 
5260, ed il programma può ora continuare come quello 
della moltiplicazione, andando a riga 2240. 

A riga 6000 c’è la subroutine IN MEMORIA: il polino¬ 
mio PX è copiato in MX, sia come coefficienti (riga 
6000), sia come stringa (riga 6010). 
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Per richiamare un polinomio dalla memoria occorre 
prima spostare PX in QX, poi MX in PX (righe 7000- 
7020). 


100 
161 
102 
103 
107 
110 
120 

130 

133 

200 

220 

230 

240 

250 

260 

270 

300 

310 


320 

1000 

1010 

1013 

1100 

1110 

1120 

1130 

1133 

1200 

1210 

1220 

1230 

1233 


ii i ri px c 20 , qx < 20 :>, vr 120 , nx 120 ;• 
rem $ # $ w. * * * $ * '* * % % 

PR$“ " POLIHOMI CIRI! INATI " 

REM v # $ $ # # $ $ W- $ % % # $ % # # # $ # #+1 % # W- 

30SUE 8000 : EC-12 : G03UE 8100 

PRI NT " FX~ " ; PX$ ■ FRI NT " L CRSR T3 QX = " .1 QX 


PRI NT " [ CRSR TU-" : PR I NT " NN= " .1 MNT 


PN$ '• 1 :• = " NUOVO POL INOM10 ” 

FNf (. 2IN MEMORIA MX*PX " 
PH$(3>= n nA MEMORIA PX*f1X " 

PN$ < 4 - " SOMMA PX+QX " 

PNf<5}="DIFFERENZA PX-QX " 

PN$ >■. 6 y ~ ” PRODOTTO PX#QX " 

FN$(7)--"QUOZIENTE FX/Q.X " 

PN~7 : GOSUE 3400 

OH PSGOSUE 1000 •• 6000 .• 7000 2000 


.. 4000,5000 
GOTO 102 

FRJ-F'Nf < 1 : GOSUE 8000 : QXf-PNf _ 
FOR K=0 TO FX<0?+1 : QX<K)=PX<K> 


3000 


NE NT 


M1 " POL I NOM 10 ORE I NATO " ; I =0 

M2T="GRADO MASSIMO : " 

M3f="GRADO PX > " : GOSUE 8o00 
GM-VRC 0}:IF GMO OR GM>3 THEN 


1100 


M2$="COEFFICIENTE DI" 
M3$--3TE$CGM+l-I ) + "# GRADO > 
GOSUE 8800 
IF ICGM+1 THEN 1210 
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1300 N2T="TERMIHE NOTO" 


1310 

H3$=" 


T 

1 a 

NOTO 

> ” : G 

OSUB 3? 

300 

1313 








1320 

FOR K 

=0 

TO 

Pi pi -r 

1 :PZCK 

=vr <: k : 

?'NEZT 

1330 

GOSUB 

cd 

300 





1333 








1340 

RC~14 

• i J 

□su 

B 81 

00 = FRI! 

NT"PZ=’ 

’, FZT 

1400 

l‘12$-" 

I» • 

M3T 

= " E '' 

OK ? 

cs/N) : 

il 

1410 

GOSUB 

o 

400 

: IF 

R IT-- " N 

” THEN 

1100 

1413 








1300 

RETUR 

N 






1503 








2000 

PP;$~P 

NT 

( 4 *? 

■ GOS 

UB 2700 


2010 

IF RI 

T~ 

"N” 

THEN 2400 



2013 








2100 

k i ~py\ 

0 

> : K 

2 L-! 'y’\ 

C 0 ) 



2110 

IF K2: 

>K 

1 T 

HEN 

2200 



2113 








2120 

FOR K 

“0 

TO 

K2 




2130 

FX'-.Kl 

+ 1 

-TO 

*PXC 

Kl+l-K 


2+1-K? 

2140 

NENT : i 

GO 

TO 

2240 




2143 








2208 

FOR K : 

=0 

TO 

K1 




2210 

QZ ( K2 

+ 1 

-K > 

=PX< 

Kl+l-K 

) +QX ( Ké 

2+ 1 --K ) 

2220 

NEZT 







2223 








2230 

FOR K- 

= 0 

TO 

K2+ 

1 : PZ f : K 

)~qzck: 

:• : NE/T 

2240 

2243 

QXS-" 

Il • 

QZ ( 

0 ~0 

; GOSUB 

2800 

2300 

RC= 12 

* (Jì 

OSUB 81 

00 




2310 PRINTPRT : PRI NT " C CR3P T] = " ; p/* 
2313 •' 

2400 N2$= " COITTINUFIRE " : GOSUB 8200 
2410 RETURN 
2413 : 

2700 


2710 

2713 

2720 


GOSUB 8000 :FRINT"P/-";PN$ 

PR I NT " C CRSR ti QK~ " QZT : RI" S " 

IF FX(0)*QX<0)<>0 THEN RETURN 
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POLINOMI ORDINATI 


2730 

2740 
2 < 4 3 
2800 
2803 
2810 

2838 

2840 
2850 
2860 
2870 
2838 
2300 
2303 
3000 
30.10 
3013 
3020 
3030 
3033 
4000 
4020 
4023 
4100 
4110 
4120 
412 8 
4200 
4210 
4213 
4220 
4230 
4243 
4273 
5000 


FRI NT " C3 CRSRf] CORREGGERE I F'OLIN 
CPU" 

RI$="N": RETURN 




:(3P1=PNC0> 


FOR K=1 TO GP1+1 
IF PN(K?=0 THEN 2300 
IF PN$=” " 0R PN < K > <0 THEN PN $~ FN+S 
TRf<PN CK)>: GOTO 2850 

pn$=pn*+ "+ M +n i m c sTRf t pk c k , 2 > 

IF K-GP1” 1 THEN 2300 
PX:$=PN$+ ,, #N ,, 

IF K-GN-0 THEN 2300 

PX$=PN$+ " T" +P11 Iif '■ STRf- C GP1+1 -K > 2 

NENT : RETURN 

PR$=PN$C5>:GOSUB 2700 
IF RI$="N" THEN 2400 

FOR K= 1 TO QN '■ 0 ) +1 : QN '■ K ? = O1 > K ) 

NENT : GOTO 2100 

FRf—FNfC 6 ') ■ GOSUB 2700 

IF RIf="N" THEN 2400 


FOR 

K«0 

TO 

PN 

( 0 ) +1 : 

VKCK 

F'N < 

0 ;■ -vi 

? v 0 

}+Q 

NC0> 

PN K 

FOR 

K= 1 

TO 

PN 

C0?+1 ; 

FOR 

K=1 

TO 

VP. 

C0J + 1 


FOR 

H=1 

TO 

QN 

■r.g)+i 


PNC 

H+K- 

i:*= 

PNC 

H+K-l> 

+ VP < 

NEN 

T : NE! 

NT : 

GOTO 2240 

PR$ 

--FNT 

<: 7 > 

: 00 

SUE 27 

'00 
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3010 

5020 

5023 

3100 

5200 

3210 

5220 

5230 

5240 

5243 

5250 

3260 

5270 

5000 

6010 

7000 

7010 

7020 

7030 

7033 


IF PXWCQXCe? THEM CO SUB 2730 
IF RI %■— "H" THEN 2400 

vr c 0 > =px •' 0 :■ ~qv c 0 > 

FOR K-l TO VR<0>+1 

VR(K>=PKCK:'/QX<n 

FOR H*1 TO QXC0J+1 

PX C H+K-1 > =F'X C H+K-1- VP f K ;■ $PX '■ H ■' 

NEXT : NEXT : GOSUB 2300 

PRI NT " [ CRSR T U RESTO " : pp J NT " [. ORRR TO = " 

; px$ 

FOR K=0 TO VR K 0 y +1 : PX < K > =VF f K :■ : NEXT 
GOTO 2240 

FOR K~0 T0 PX 0 T' + l : MX < K ~PX ( K : NEXT 
MX$=PXS: RETURN 
QX$=PX$:PX$=MX$ 

FOR K=0 TO PX ( 0 > +1 : QX 'T !< ') -PX < K > : NEXT 
FOR K=0 T0 MX < 0 > +1 : PX < K =MX < K ? : NEXT 
RETURN 

R E M % % % % % % $ $ ;>jV $ $ $ # ^ ■£ <j,: :,[>• 
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EQUAZIONI 
DI 1 ° GRADO 



A questo punto chi è bravo in matematica si ribel 
la. Nella tranquilla certezza di saper bene utilizzare 
quello che forse è il più potente mezzo dell algebra e 
c i tante altre discipline matematiche può pensare tra 
di sé: «Voglio proprio vedere che cosa questo com¬ 
puter senza intelligenza è in grado di insegnarmi!». 
E invece... Proprio per i più in gamba questo capito¬ 
lo e il relativo programma costituirà una autentica 
sorpresa. Il modo elegante e sintetico con cui una 
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mente umana affronta, calcola e risolve una equazio¬ 
ne è soltanto uno dei mezzi che la matematica ci met¬ 
te a disposizione, e, per quanto elegante, non è pro¬ 
babilmente il più rapido, almeno se sul nostro tavo¬ 
lo,'sul nostro banco, abbiamo il nostro fido compu¬ 
ter in grado di lavorare per noi. Chi non è tanto bra¬ 
vo in matematica sfrutterà questo programma come 
tutti gli altri, per avere rapidamente risultati e fare 
bella figura con tutti, insegnanti compresi; chi è già 
bravo, però, troverà qualcosa in più: la conoscenza e 
la coscienza che la matematica, ogni campo della ma¬ 
tematica, presenta mille diverse e scintillanti sfaccet¬ 
tature. 

Dove la nostra mente umana trova l’alterigia delle 
sue capacità in un momento di sintesi, usando pochi 
elementi per volta, la «mente» grezza ma superba¬ 
mente efficiente del computer approssima con una 
vera valanga di valori la soluzione finale. 

Certo, sul terreno delle equazioni di primo grado 
lo scontro tra uomo e computer si concluderà con un 
uno-a-uno, in parità; ma quando gli altri campi di ga¬ 
ra saranno resi accidentati ed impervi dalle x 2 3 4 , dalle 
x , dalle x n ... è meglio imparare subito questa poten¬ 
te chiave di volta che il computer usa anche sulle 
«iniziali» equazioni di primo grado. 


Giorgio ha a che fare con un'equazione di 
do: 

2 + x 1 /-3-X + — 1 i 3x ~ 2 2x + 1 

3 2 \ 2 3/ 4 3 

Con un paio di passaggi ottiene: 


primo gra- 

- = 0 


4 (2 + x) - 9x - 2 + 3 (3x - 2) - 4 ( 2 x + 1) = 0 


sviluppando e raccogliendo: 

4x-9x + 9x-8x+ 8 — 2 — 6 — 4 = 0 
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cioè: 


x+ 1 =0 


MISTER BIT 
schermo: 


r~ y .il- "J 



x = 1 

lancia un messaggio laconico nello 

LO SAPEVO SUBITO ! 

BASTA CALCOLARE. 


Giorgio scrive il programma EQUAZIONI DI 1° GRA¬ 
DO, e scopre che in effetti il COMMODORE calcola mol¬ 
te volte l’espressione data, controllando il risultato: fa in 
modo di avvicinarsi sempre più a zero e si ferma quan- 
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do è vicino abbastanza. Un modo inconcepibile per un 
uomo, ma il più facile per un calcolatore. 

Il programma presenta a Giorgio tre alternative: intro¬ 
durre l’equazione, il calcolo della soluzione, il calcolo 
dell’espressione per particolari valori di x. 

Ovviamente la soluzione è la stessa (v. figura) di quel¬ 
la trovata da Giorgio, ma a volte può differire di qualche 
cifra decimale dalla soluzione esatta (è una soluzione 
approssimata). A volte il programma può non trovarla, 
ed allora si ferma dopo 100 tentativi; in questo caso è 
probabile che ci sia un errore in F(X). 


COME FUNZIONA 

Dopo aver pulito lo schermo, ed avervi fatto apparire 
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l'equazione F(X) (riga 110 e 500-530), come quasi tutti i 
programmi precedenti anche questo si presenta come 
una scelta tra alcuni sottoprogrammi che compiono 
operazioni diverse, tramite la SUBROUTINE 9 (righe 
200-310). 

La parte di programma che inizia a riga 1000, CAM¬ 
BIO F(X), comincia preparando lo schermo con un 
messaggio (righe 1000-1030), e con l'equazione F(X) 
da cambiare. 

Le righe 1100 e 1110 usano la SUBROUTINE 8 per 
introdurre la nuova equazione, che viene ribattezzata 
FX$ nella riga 1200. 

Le righe 1210 e 1230 preparano le stringhe necessa¬ 
rie per modificare due righe del programma, la 520 e la 
2500, compito svolto dalla SUBROUTINE 10, che rilan¬ 
cia il programma dall’inizio, riga 100. 
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Per trovare la soluzione dell'equazione F(X)=0, il pro¬ 
gramma inizia a riga 2000. Il metodo seguito è tipico del 
calcolo effettuato con calcolatori elettronici, ed avviene 
in due fasi. 

Nella prima fase si tratta di trovare due valori di X, 
chiamati XA e XB, tali che l'equazione F(X) sia per uno 
positiva e per l'altro negativa. 

Per calcolare F(X) per un certo valore di X, occorre 
prima dare a X quel valore, poi andare alla subroutine di 
riga 2500: la variabile FX avrà il valore cercato. 

La prima fase comincia dando a X il valore 1 (riga 
2100): il valore di F(X) per X=1 sarà il numero X0 (riga 
2150). 

Se per caso il risultato è proprio zero, la ricerca è fini¬ 
ta, si va direttamente a riga 2400. Altrimenti si calcola 
(riga 2400), un nuovo valore per la variabile. 

Questo nuovo valore di X serve per calcolare F(X), il 
risultato viene chiamto XI (riga 2200). Anche ora se il ri¬ 
sultato è zero si è trovata la soluzione esatta e si va diret¬ 
tamente a riga 2400. Se il nuovo risultato, XI, ed il vec¬ 
chio, X0, sono dello stesso segno il loro prodotto è posi¬ 
tivo (riga 2240), non si è ancora conclusa la prima fase, 
e si torna a riga 2200 per provare un nuovo valore di X. 
I valori di X che vengono calcolati nella riga 2200 sono 
sempre più grandi in valore assoluto, e di segno oppo¬ 
sto. Precisamente abbiamo: 


1° volta 

X = 

1 

2° volta 

X = 

-2 

3° volta 

X = 

4 

4° volta 

X = 

-8 

5° volta 

X = 

16 

e così via. 




Prima o poi si troverà un valore che rende F(X) di se¬ 
gno opposto a quello che ha per X=1. Se non si trova 
(per esempio per uno sbaglio in F(X)), la riga 2210 con¬ 
ta il numero di tentativi e dopo 100 prove senza trovarlo, 
poiché X è ora molto grande, ai limiti della capacità di 
calcolo del C-64, il programma smette di cercare, man¬ 
dando un messaggio adatto (righe 2450-2460). 

Normalmente, dopo un po' di tentativi, la prima fase si 
conclude felicemente, cioè vengono trovati due valori di 
X che fanno assumere alla equazione F(X) due valori 
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opposti: la riga 2300 li chiama XA e XB, ed ora inizia la 
seconda fase del calcolo. Il valore di X che noi cerchia¬ 
mo sarà compreso tra XA e XB. La seconda fase consi¬ 
ste nell'avvicinare tra loro i numeri facendo in modo che 
la radice cercata X sia sempre compresa tra XA e XB. 

Per far ciò si usa il metodo detto della "bisezione”. La 
riga 2310 calcola un numero intermedio tra XA e XB, e 
poi va alla subroutine di riga 2500 per calcolare F(X) 
con questo valore. Se F(X) ha lo stesso segno che ave¬ 
va in XA, allora la radice è compresa tra il nuovo nume¬ 
ro e XB, viceversa in caso contrario. Il confronto avviene 
a riga 2330, ed il nuovo sostituisce XA (riga 2330) oppu¬ 
re XB (riga 2350) in modo che la radice sia sempre 
compresa tra XA e XB. Il programma ritorna a riga 2310 
per cercare un nuovo numero tra XA e XB. È evidente 
che XA e XB si avvicinano sempre di più, ad ogni ciclo 
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di calcolo, contenendo tra loro la radice incognita. La ri¬ 
ga 2360 controlla se si è raggiunta la precisione voluta 
(pari a 1E-7, valore dato a K4 in riga 2100): in questo 
caso termina la seconda fase del calcolo, ed il pro¬ 
gramma continua con la riga 2410 che arrotonda il risul¬ 
tato trovato. La seconda fase si può interrompere an¬ 
che se non si raggiunge la precisione richiesta dopo 
100 prove: se ne occupa la riga 2320, che in questo ca¬ 
so fa continuare il programma a riga 2450. 

La parte di programma che inizia a riga 3000 — CAL¬ 
COLO DI F(X) — è molto semplice: la riga 3000 prepara 

10 schermo e le righe 3010, 3020 usano la SUBROUTI- 
NE 7 per chiedere il valore di X; la riga 3100 calcola il 
risultato e la riga 3110 lo fa apparire sullo schermo, do¬ 
po aver cancellato con S$ il vecchio. Se non si introduce 

11 valore X, ma si batte solo /RETURN/ la riga 3030 ri¬ 
manda a riga 320. 


33 RE T'1 iti $ $ % $ T $ $ $ $ $ $ % $ $ $ $ ;i|i; $ jji; 

100 PR$= "EQUAZIONI IH 1# GRADO" 

10 7 RE PI $ $ # $ $ % # $ % $ % $ $ $ $ # $ ’Jf. % % T. $ $ $ -ijr $ $ ® $ * $ 
103 : 

110 GOSUB 8008 : GOSUE 500 
113 : 

200 FHT (.lì- " GAME 10 F C X •' 

n 

210 PH$ 2 ') " S0L.UZ, FOO=8 

il 

220 PH$ < 3 ~> = " CALCOLO FOO 

il 

300 FN=3 : GOSUB 3408 

310 OH PSGOSUB 1000.. 2000.. 3008 

313 : 

320 GOTO 100 


500 EC=13 : GOSUB 8100 
503 : 

520 F X '$ ~ ’ ' < 2+ X ? / 3 -1 / 2 '¥■ <. 3 % X / 2 +1 
V4.<2#X+Ì V3" 
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530 F'RIHT"F 


FXT : RETURN 


1000 PR$=FN$tl > ■ GOSUB 8000 
1010 FRINÌ" INTRODUCI Lfl NUOVR" 

1020 FRINT" EQUAZIONE DI PRIMO" 

1030 FRINT" GRADO" : GOSUB 500 

1033 : 

1100 M1 " " : N2$= " ” : M3$=" F X :> - " 

1110 I~0 : GOSUB 5000 

1200 IF RI$="3" THEN FX$=ST$ 

1203 : 

1210 FI ■$='' "520FX$=" +CHRT(34) +FX$+CHR$34) 
1220 P2$="2500 FX*"+FXS 
1230 F3T="RUN100" : GOTO 3200 
1233 : 

2000 F'RT^PNT '■ 2 > : GOSUB 8000 
2010 FRINT" CALCOLO SOLUZIONE" 

2020 FRINT" APFROSSIMHTfl" 

2030 FRINÌ"CCRSRT3 [CTRL3+CRV3 ONIAT 

TENDERE[OTRL3 + CRVS OFF ] 3 " : GOSUB 500 


:, 033 


21 00 

1 

0 : K1 = 1 : K2= 100 • K: 

2150 

GO: 

SUB 2500 :X0"FX 

2160 

IF 

FX=0 THEN XFi=X 

2163 

2200 

K1 

=Kl'$C.~27 : X~X+K1 

2210 

• .*• *~i 

=K3+1=IF K3>K2 ' 

2220 

GO: 

SUB 2500=XI-FN 

2230 

IF 

FX=0 THEN XA~X 

2240 

IF 

X0*X1>0 THEN 2i 

2243 

2300 

.* T"l 
,*•»£•■ 

“X : XA-X-K1+K1/2 

2303 

'T'T 1 1 r.'i 
c~„> 1 nj 

V — 

'■ XA+XB::'/2 : GOSUB 

2320 

K3 

-K3+1 : IF K3>K2 

2 C‘ '.2 i 0 

IF 

FX*X1C0 THEN XI 

■~l '“1 r ~\ r ~\ 

2340 

r r~ 

J. 1 

FX--0 THEN Xfl=X 

2350 

KB 

~X: XI-FX 
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2360 IF fìB5 < XFI~XE > >K4 THEN 2310 


2400 

2410 

2413 

2420 

2430 


PRINT :PRI NT"F <X)=0 PER X="; 

PRI NT < I NT < >r. XR+XB > X2#1E6+© » 51' > * 1E-6 

02$-”CONTINUflRE" ; GOSUB 8200 
RETURN 


2450 

2460 

2463 

2500 

2510 

2513 

3000 

3003 

3010 

3020 

3030 

3033 

3100 

3110 


3113 

3117 


PR I NT " [ CRSR TI NON TROVFITO DOPO ” 
FRINTK2.I "FROVE" : GOTO 2420 

FX= < 2+X > /3-1 /2# 3#X/2+1 /3 •' + 3 TX-2 > t 

4-C28X+1 V3 

RETURN 

PRT=F'N$(3) : GOSUB 8000 : GOSUB 500 

M1 " CRLCOLRRE F f. X > " : M2$= " " 

03$="PER X= 1 = 1 :GOSUB 8800 

IF RI$="N" THEN RETURN 

X=VR< 1 J '•GOSUB 2500 

PRINTS$:"[SHIFT 3 + C CRSRT3 FCX>= ” : FX 

GOTO 3020 
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METODO 
DI CRAMER 



Uffa, questi sistemi! All’inizio sembravano tanto 
semplici ma poi, con tutti i metodi di risoluzione che 
il professore è andato spiegando, va a finire che si 
perde un sacco di tempo soltanto per decidere qual è 
il metodo migliore per risolvere il sistema proposto 
dagli esercizi del libro di testo. Certamente l’autore 
del libro di testo, in combutta con il professore, ha 
fatto a bella posta, in modo che un esercizio fosse 
più facile da risolvere con il «confronto», quello do- 
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po con la «sostituzione» e quello ancora dopo chissà 
con che cosa... Oltretutto, proprio su questo argo¬ 
mento i «primi della classe» sono veramente antipati¬ 
ci quanto ti vengono a dire: «Ma come, non vedi che 
addizionando e sottraendo..». Ebbene noi, insieme 
al nostro computer usiamo il metodo di Cramer, una 
specie di ruspa, potente e stritolatrice. Il C-64 ci mo¬ 
strerà tutti i passaggi pervenendo rapidamente alla 
soluzione esatta. Saremo proprio noi, stavolta, a 
controllare che tutti i virtuosismi di quelli bravi sia¬ 
no corretti, che veramente la loro soluzione sia quel¬ 
la giusta. 


Un sistema di due equazioni in due incognite come 
questo: 


2x-3y = 18 


3x-4y = 25 

si può risolvere in molti modi, e Giorgio ne conosce di¬ 
versi: sostituzione, confronto, somma e sottrazione... 
MISTER BIT, interviene: 


R ME FIREE IL METODO DI 
CERMEE CI SONO PIU' 

CALCOLI ! 


Giorgio è un po' esterrefatto, ma copia il programma. 
Lo schermo gli appare come in figura, chiedendogli i 
coefficienti. Se fa un errore può rispondere «N» alla do¬ 
manda finale. I coefficienti verranno chiesti di nuovo. 

Il calcolo della x e della y si presentano in modo ana¬ 
logo, con tutti i passaggi, e vengono anche riconosciuti 
i casi particolari. 

Certo che MISTER BIT... è forte! 


COME FUNZIONA 

Questo programma usa il vettore VR( ) non solo per 
immettere i dati numerici, ma anche per eseguire dei 
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calcoli; inoltre ha bisogno di un vettore di stringhe C$( ); 
entrambi questi vettori conterranno 15 elementi, quindi 
la prima istruzione è di tipo DIM, che dimensiona i vetto¬ 
ri e che deve essere eseguita una volta sola, all'inizio 
dell'esecuzione del programma. Dopo la riga 990 il pro¬ 
gramma continua come abbiamo già visto altre volte: 
viene pulito e preparato lo schermo (righe 1000-1030). 
Le righe da 1040 a 1100 usano la SÙBROUTINE 7 per 
chiedere i valori di tutti i coefficienti e termini noti del si¬ 
stema, che deve essere in forma normale. 

Le righe 1110 e 1130 usano la SUBROUTINE 6 per 
scegliere se continuare o ripetere le domande. Se non 
si sono fatti errori si continua con le righe 1140-1180 
che calcolano tutti i valori necessari per la soluzione del 
sistema, e dalla riga 1190 si va a riga 2000 se si tratta di 
un sistema indeterminato o impossibile. 


| METODO DI 

CRAMER 



! 18 

-3 ! 



! 23 

-4 ! 

<-72>-<-75> 


! 2 

-3 ! 



! 3 

-4 ! 



= 3 / 1 = 

******* 

3 



SE VUOI 




CALCOLARE 

V 



PREMI UN TASTO 
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Se ii sistema è determinato, il programma ne calcola 
la soluzione con il metodo Cramer. A riga 1200 si pre¬ 
para lo schermo, mentre nelle righe 1210, 1220 si tra¬ 
sformano tutti i risultati intermedi in stringhe di sei cifre al 
massimo, nel vettore C$( ). 

Dalla riga 1300 alla riga 1380 il programma fa appari¬ 
re sullo schermo i calcoli per la X. A riga 1390 va alla 
subroutine della riga 3000, che prova a semplificare 
una frazione di cui N è il numeratore e D il denominato- 
re: nelle righe 3100, 3110 il programma controlla se so¬ 
no entrambi divisibili per un numero intero Z: se lo sono, 
la frazione è semplificata e si cerca un altro divisore co¬ 
mune. Inoltre nelle righe 3310-3330 si sistemano i segni 
in modo che un eventuale segno meno appaia solo al 
numeratore. La riga 3340 fa apparire sullo schermo la 
frazione ridotta. Il programma continua poi con riga 
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1400, che fa apparire il valore finale di X. 

La riga 1500 introduce una pausa, per mezzo della 
SUBROUTINE 6, prima di passare al calcolo di Y. 

La presentazione del calcolo della Y è del tutto analo¬ 
ga a quella della X, a parte il fatto che si usano altri valo¬ 
ri, e avviene nelle righe da 1510 a 1520. Anche ora la 
riga 1610 usa la subroutine di riga 3000 per provare a 
semplificare la frazione. 

La riga 1630 introduce un’altra PAUSA prima di torna¬ 
re all’inizio del programma, cioè la riga 1000 (la riga 
990 deve essere eseguita una sola volta). 

Quando il sistema non è determinato, la riga 2010 
controlla se è indeterminato o impossibile. In questo ulti¬ 
mo caso il programma prosegue con il messaggio delle 
righe 2020 e 2030 per andare alla pausa di riga 1630. 

Se invece il sistema è indeterminato, le righe da 2100 
a 2150 calcolano e fanno apparire la soluzione. 


METODO DI C 


RRf'IER 


3 8 3 r e M $ W- $ # T W. :*= $ $ $ $ # W- $ $ % % % % % % % # $ * $ # * * $ 
385 REM 

387 

ciQCi 

388 


R E ri $ $ $ :f: $ : $ $ w $ $ # # # # # # it : iti 1+1 # $ 141 % % $ * # 

DIM VR(15),C$(15) 


1000 

PR$=" 

SISTEMA IN X • V £ NOE PI. > " 

1 0 1 0 

G0 SUL 

8000 :RC“14 : 00SUE 8100 

1020 

FRI NT 

" < FUTN+E1TV = CI” 

1830 

FRINÌ 

" k : FRIN T " C FI2N+B2 W- V 

1833 




1840 

M2$= " 

”: MI$="COEFFICIENTE" : 1=0 

1 038 

M3$=" 

RI = " 

00SUE 8800 

1 860 

M3$=" 

Bl = " 

OOSUE 8800 

1070 

M3$~ " 

p ..... il 

GOSUE 8800 

1088 

M3$~ " 

FI 2 ~ " 

OOSUE 8800 

1030 

M3$= " 

T» •***» — 11 

OOSUE 8800 

1100 

M3$=" 

C2 - M 

OOSUE 8800 

1103 




1110 

M1 " 

I COEFFICIENTI” 412$=="" 

1128 

ri 3 $=•• " 

SONO or 

: ? (S/N? >"=GOSUE 

1130 

IF RI 

$~"N" THEN 1040 
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1133 : 

1140 VR C 6 ) =VR C 2 :< tfVR C 4 > : VR C 7 > ~VR C 5 ) #VR C 1 ■' 
1150 VR C 3 > =VR C 0 > $VR C 5 ) : VRC E? ) =VR C 3 ) &VR C 2 
1160 VR C 10 > =VR C 0 ) #VR < 4 ) : VR C 11 ) =VR C 3 ) *VR 
1) 

1170 VR <12 > =VR < 6 ) - VR < 7 ) : VR < 13 ) ~ VR < 8 ) -VP. < 
SO 

1180 VR < 14 ) - VR < 1 0 > - VR < 11 ? 

1183 '■ 

1190 IF VR<14)--0 THEN 2000 

1200 PR$«"METODO in CRRMER " '■ GOSUE 8008 

1203 : 

1210 FOR K—0 IO 14 

1223 C$ < K ) ~N 1 1>$ < STRT < VR < K ) ) 1,6 ) : NENT 

•~t •—i • 


1 

1300 PRINT"C3 CRSRTU !";C$<2 
;CfCl); TRE<180 " ! " 

1310 PR I NT " ! " c$ < 5 ) TRE < 12 

PIECI SO " ! 

1320 PR I NT TRE C 21 ) " C ” j CT C 6 ) " 


TFIBC 12) 
:';c$C4); T 

>—c " ; c$c7) 


1330 PRINT"K =4-f 

1340 PRINT TREC22) -- 

1343 : 

1350 PR I NT " ! " j C$ C 0 ) j TRE C 12 ) ; C$ C 1 ) T 

RECISO " ! 

1360 F‘RINT TRE C21 ) " < " C*< 10 ; " >- C •' ; C$ C1 
1 ) ; " ) " 

1370 PRINT" ! " CfC3) TREC 12) ; C$<4) J T 

RE C 18).: " ! " 

1373 : 

1380 FRINT"C5 CRSRTU =" ; 0$C12)J" /";CfC 
14).: 

1383 : 

1390 N-VR C 12): ]i=VR < 14 ) : GOSUE 3000 
1393 : 

1400 PRINT" =";VR C12)/VRC14); 

1403 : 

1500 02$=”CRLCOLRRE Y":GOSUE 8200 
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1510 
1513 

1 NxTì 


50SU33 3000 


PRI NT ” C 3 CRSR T\3 ! " ; Cf ( 0 > ; TRE ( 121' 

; cf ( 2 ) ; tre a8?; ” ! " 

1538 PR I NT " ! " Cf ( 3 ) TRE ( 12 ) ; Cf ( 5 ) J T 

re(13) ■■ ! 

1540 PR I NT TRE ( 21)" ( " 1 Cf ( 8 ) ; " ? - ( " J Cf ( 3 ) 


1550 

1568 

1563 

1578 


■ t! •*. Il 

fr'iht" V =+- 

FRI NT TRE ( 22 ) " 


-+ 


PR I NT " ! ” Cf ( 8 ) ; TRE ( 12 ) 1 Cf ( 1)J T 

flBas); " ! M ; 

1530 FRI NT TRE (21) " ( " J Cf ( 10) 1 ” )-( ” Cf ( 1 
1)J"> " 

1530 FR I NT " ! " J Cf ( 3 ) J TRE ( 12 ) J Cf ( 4 ) .. T 

fìE(13)J ” ! " 


1533 

1600 

1603 
1610 
1613 
1620 
1623 
1630 
1640 
1643 
2000 
2010 

2013 

2020 

2030 

2040 

2043 

2100 

2110 


PR I NT " [ 5 CRSR TU = " J Cf ( 13 ) J " f " J Cf ( 
14) J 

N~v R ( 13 : n - V R (14) : G 0 3 U B 3000 

PR I NT " --= " J VR ( 13 ) /VR ( 14 ) J 

P12$= " RI CON INCIRRE " : GDSUE 3200 
GOTO 1000 

GOSUE 8000 

IF VR(0)/ VR(3)- VR(2)/VR(5) THEN 210 
0 

PRIHT"C2 CRSR TOSISTENR INFOSSI E ILE" 
FRINT"CCRSR T3 NESSUNA SOLUZIONE" 

GOTO 1630 

PRINT"C 2 CRSR T0SISTENR INDETERNINRT 
0" 

FRINT"L CRSR T3 INFINITE SOLUZIONI" 
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2120 

FRINT" 

13 CR: 

SR 

'MIN 


ir il 



2130 

FRINT” 

CCR3R 

•M ' 
; J 

1 t — il 

T — 

i 

: N-:' 

1 1 rr 1 *■' 5 . 

i I •. \ w .• 

B E 

2140 

GOSUB 

3080 







2150 

N1 -N : Il 

1=11 







2160 

N-“1*V 

r < 0 : ; 

Y\ 

in •» 

v h x 

) 




2163 









2170 

GOSUB 

3080 







-*i -i nn 

c: i ob 

PRINTN 

•f *n .*11 

l J •* 

;m; 





2130 

IF VR\ 

0 j $vr 

a 

> <q 

T 

HEN 

FRI NT 

" 4 - " ; 

2200 

PRINTN 

• Il 

.» l .* 

IU 

"*K= 

M 




2210 

FRINT" 

L CRSR 

T] 

lV . M 

.1 

VR 1 -. 

ZI'/VRC 

i ; 

2220 

IF VEC 

0 #vr 

a 

I 1 30 

~r 

J 

HEN 

FRI NT 

M "l** " I 

2230 

FRINT~ 

1TVR <: 

0 1* 

/ VR \ 

1 

J. 

>" 

W: " 


2248 

GOTO 1 

630 







3000 

Z=2 : 1 = 

0 







3083 









3100 

IF INT 

CN/ZI' 


OH 

THEN 

3280 


3110 

IF INT 

■: ij/z ? 

#z 

OD 

T‘ 

1 

HEN 

3200 


3120 

N=N/Z: 

D=I.i/Z 

: I 

= 1 + 1 

’ 

GOT 

0 3180 


3123 









3200 

Z“Z+1 : 

IF ZI 

N 

Ri-m 


T I 

THEN 3 

100 

3300 

IF I--0 

l THEN 

R 

E TUR 

:n 



3303 









3310 

if mj} 

l<0 TU 

EN 

M=- 

•i 

*rb 

S(N):G 

iOTO 

3320 

N-RES( 

NI' 







3330 

Ii—RBS 

IO 








0 


907'r. 1 

OO 


3340 FRINT 


h; 


li ..*ii 


IU : RETURN 


3347 R E PI $ $ $ :<H $ $ $ $ $ ¥ * % % % % % % % % % % % % % % % % % % # % 
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Anche se in Algebra ogni esercizio, ogni calcolo 
va eseguito in modo — con la completezza dei pas¬ 
saggi intermedi — che il nostro insegnante si renda 
conto che abbiamo studiato ed imparato, qualche 
volta non c’è bisogno di sciorinare righe su righe, pa¬ 
gine su pagine dalle lente continue trasformazioni di 
un sistema di equazioni, fino a pervenire al risultato 
finale. 

Se stiamo «lavorando» in un’altra materia, in fisica 
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o in geometria, per esempio, il sistema di equazioni è 
soltanto un mezzo, un qualcosa da utilizzare solo 
per conoscere il risultato. Se qualcuno ci può rispar¬ 
miare j:utti quei tediosi e lunghi passaggi tanto me¬ 
glio. È soltanto il risultato quello che ci necessita? 
Allora meglio averlo esatto e «subito»! 

Il nostro C-64 può trovare la soluzione senza fare 
alcun passaggio algebrico, in modo rapido ed utile. 
Viva il nostro C-64! 


Ricompare MISTER BIT: 
f-lR POSSO FRR DI MEGLIO 
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CON IL METODO DI 
CRRMEF' IL SISTEMA 
DEVE ESSERE IN FORMA 
NORMALE. 

POSSO PROVRRE R CALCOLARE 
LR SOLUZIONE DI UN SISTEMA 
NON RIDOTTO ! 


Giorgio pensa: un bel presuntuoso! 

Prova il programma. Durante il calcolo questo si com¬ 
porta in modo strano, mostrando i vari tentativi che ottie¬ 
ne via via... 

Il calcolo avviene infatti in due fasi, MISTER BIT spie¬ 
ga brevemente come funziona. Nella prima fase si cer¬ 
cano quattro coppie di valori x, y tali che inseriti nelle 
equazioni FI e F2 diano le quattro combinazioni possi¬ 
bili di segni: FI e F2 positive, FI negativa e F2 positiva, 
FI positiva e F2 negativa, entrambe negative. Per trova¬ 
re queste quattro coppie, si usa un metodo casuale 
(RANDOM), facendo 300 tentativi con numeri a caso 
sempre più grandi. Questo metodo non garantisce però 
che le quattro coppie vengano effettivamente trovate. 
La prima fase si conclude o con un messaggio di tenta¬ 
tivi infruttuosi, ovvero si passa direttamente alla secon¬ 
da fase, che consiste nel trovare, partendo dalle quattro 
coppie trovate nella fase precedente, altre coppie di x e 
y sempre più vicine alla soluzione, fino al grado di ap¬ 
prossimazione chiesto. 

Occorre che nelle due equazioni le variabili x e y non 
siano al denominatore. 

MISTER BIT aggiunge: 

H VOLTE 300 PROVE NON ERSTRNO 
ESEGUI DUE 0 TRE VOLTE LR PRIMA 
FASE E RICORDA CHE LE SOLUZIONI ' X ' 
SONO RPPROSSIMRTE 

A Giorgio piace questo programma: gli sembra quasi 
di seguire gli sforzi del calcolatore... 
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COME FUNZIONA 

La riga 1010 pulisce lo schermo e utilizza la subrouti¬ 
ne di riga 5000 per far apparire sullo schermo le due 
equazioni del sistema (righe 5000-5080). Viene poi pre¬ 
sentata la scelta tra tre possibilità: si usa, naturalmente, 
la SUBROUTINE 10 (righe 1020-1060). 

Per introdurre le due equazioni si usano le SUBROU- 
TINE 8 — INGRESSO STRINGA — e 10 — MODIFICA 
PROGRAMMI —, ma in modo un po’ diverso di come 
abbiamo visto in altri programmi. Le righe 2000 e 2010 
preparano alcune stringhe sia per la SUBROUTINE 8 
che per la SUBROUTINE 10. La riga 2100 pulisce lo 
schermo e prepara le rimanenti stringhe, mentre le ri¬ 
ghe 2110, 2120 mandano un messaggio sullo scher¬ 
mo. 
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Anche ora si fanno apparire le due equazioni usando 
la subroutine 5000 poi si usa la SUBROUTINE 8 per 
chiedere la prima equazione. 

Nella riga 2150 si completano le stringhe per la SUB- 
ROUTINE 10, usata in riga 2160, che modificherà le ri¬ 
ghe 5000 e 6000. Si è scelta questa soluzione perché il 
programma che inizia a riga 3000 e che serve per mo¬ 
dificare F2(X, Y) (si trova alle righe 5010 e 6010), dopo 
aver preparato le sue stringhe nelle righe 3000, 3010, 
3020, può utilizzare il precedente, saltando a riga 
2100 . 

A riga 4000 inizia il programma di calcolo vero e pro¬ 
prio, al solito con la pulizia dello schermo (SUBROUTI- 
NE 1) e con la subroutine locale di riga 5000, che fa ap¬ 
parire le due equazioni del sistema. 

A riga 4010 comincia la prima fase, la ricerca RAN- 
DOM (a caso) delle prime quattro coppie di valori X e Y. 
Si utilizza il vettore VR( ) per conservare questi valori, 
secondo lo schema: 




SEGNO DI 

vettore 

var. 

FI 

F2 

VR (0) 

X 

+ 

+ 

VR(1) 

y 

+ 

+ 

VR (2) 

X 

- 

+ 

VR (3) 

y 

- 

+ 

VR (4) 

X 

+ 

- 

VR (5) 

y 

+ 

- 

VR (6) 

X 

- 

- 

VR (7) 

y 

- 

- 


La riga 4020 mette a zero tutti questi valori. Poi vengo¬ 
no calcolati i due valori a caso di X e Y: la riga 4100 ga¬ 
rantisce che tali valori siano compresi tra -K1 e +K1, e 
inizialmente K1 vale 20 (riga 4010). 

La riga 4110 va alla subroutine locale di riga 6000: 
questa calcola i due valori, FI e F2, assunti dalle due 
equazioni per i valori X e Y in prova. A seconda del se¬ 
gno di FI e F2 le righe 4120 e 4130 calcolano un nume¬ 
ro H che indica, seguendo lo schema precedente, in 
quale posto andrebbero i valori X e Y. La riga 4140 con- 
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traila se in quella posizione c’è uno zero: se lo trova vuol 
dire che quella combinazione di segno non è ancora in¬ 
contrata, e X e Y sono attribuiti al vettore VR( ), al posto 
H e H + 1. 

La riga 4160 usa la subroutine locale di riga 4800 per 
far apparire la scritta con il numero progressivo del ten¬ 
tativo e i due valori X e Y in prova, cancellando i prece¬ 
denti. 

La riga 4200 moltiplica tra loro tutti i valori da VR(0) a 
VR(8). Poiché VR(8) è uguale a 1 (riga 4110), se il risul¬ 
tato è zero vuol dire che non sono state trovate tutte e 
quattro le coppie, quindi si aumenta il limite K1 per per¬ 
mettere valori casuali a X e Y un po' più grandi (riga 
4220) e se non si sono ancora fatti 300 tentativi si torna 
alla riga 4100, altrimenti appare un messaggio e si usa 
la SUBROUTINE 5 per ricominciare (righe 4230-4410). 

Se invece il prodotto di riga 4210 è diverso da 0, la 
prima fase è conclusa felicemente e può cominciare la 
seconda. 

Si calcola una nuova coppia di valori X, Y facendo la 
media tra due coppie di valori trovati, seguendo un ordi¬ 
ne particolare, (righe 4500, 4530) e si va alla subroutine 
di riga 6000 per ottenere i valori FI e F2. A seconda del 
loro segno i valori X e Y sostituiscono i precedenti (righe 
4540, 4550, 4560) calcolando il valore di H come ab¬ 
biamo già visto nelle righe 4110-4130. La riga 4600 usa 
la subroutine di riga 4800 per scrivere sullo schermo il 
numero di affinamento e i valori di X e Y. 

Per decidere se terminare il ciclo si confrontano i va¬ 
lori trovati con quelli precedenti, conservati in VR(8) e 
VR(9): se la differenza è maggiore della precisione ri¬ 
chiesta (righe 4610, 4620) si prosegue, controllando se 
si sono raggiunti i 100 tentativi (riga 4630), ed in caso 
affermativo si esce dal ciclo andando a riga 4300. Altri¬ 
menti si aggiornano VR(8) e VR(9) con i valori appena 
trovati e si torna a riga 4500 per una nuova approssima¬ 
zione. Quando invece due soluzioni differiscono meno 
della precisione richiesta il programma termina regolar¬ 
mente con il messaggio di riga 4700 e va a riga 4400 
per presentare la SUBROUTINE 5 — PAUSA — prima 
di ricominciare. 

Questo metodo di calcolo non fornisce una soluzione 
in tutti i casi: può fallire la ricerca RANDOM (300 tentativi 
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non sono poi molti), ovvero per alcuni sistemi può non 
raggiungere una soluzione approssimata. 


PR$ 


SISTEMA X;Y IMPLICITO' 


333 
1000 
1003 
1 0 0 { 

1010 GOSUE 8000 : GOSUE 5000 

1013 : 

1020 PNf-C 1 > = "CRME10 FI 

n 

1030 PH$(2>="CAMBIO F2 

li 

1040 PN$ < 3 ) = " CALCOLO X .1 Y 


1050 
1060 
1063 
2000 
2010 
2013 
2100 
2110 

2120 
-j 1 ryo 

c. X iì. -...' 

2130 
2140 
2143 
2150 
2160 
2153 
3000 
3010 
3020 

3023 

4000 

4010 

4020 


PH=3:GOSUE 3400 
OH PSGOTO 2000.- 3000.'4000 

PR$~PH$ ■: 1 ;i : F1 $=" 5000 F1$- " +CHR$ 84 > 
P2$= "6000 F1 = " : M3$= "Fl(X; V •' = " 

POPI l£ p Fi FI Fi : M1 " " : M2$~ " " 

PRIHT"CCRSRTI INTRODUCI LA NUOVA" 
PRIMT " C CRSR TI E00FIZI OHE IN X V " 

G 0 S 0 E 5000 : I = 0 : G 0 S U E 3000 
IF RI$="N" THEN 1000 

P1 $=P 1 $+ST$+CHR$ ( 34 ) : P2$~F2f+ST$ 
P3$~. ” GOTO 1000" : GOTO 3200 


PI$"-"5010 F2f = " +CHR$C34> 

P2$~ " 60 10 F2= " : M3$= " F2 X > V > ~ 
pp$.~3$ f FH$ (. 2 li' • PR$ = LEFT$ PF.T > 40 • GOT 

0 2100 

p, ‘j - GOSUE 8000 • GOSUE 5000 
ST$“" RICERCA’RHNDOM" : K1=1•1=0 
POR K--0 TO 7 : VR(K>=0 : NEXT 
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4063 : 

4100 X=RND < 0 > *2$K 1 -K1 : V-RND < 0 ;■ #2#K1 ~K 1 

4110 00S U E 6000 : H -■ 0 : V R < 8 > ~ 1 

4120 IF FICO THEN H=2 

4130 IF F2<0 THEN H=H+4 

4140 IF VRtH)#VR<H+l?O0 THEN 4160 

4150 VR C H :> =X : VR C H+1 ? =Y 

4153 : 

4160 GOSUE 4800 

4200 FOR K~0 TO 7 : VR C 8 > =VR < 8 > * VR ( K : NE NT 
4210 IF VR(8)00 THEN 1=0: GOTO 4480 
4213 : 

4220 K1 = 1.06*K1 : I = I +1 
4230 IF I<300 THEN 4108 
4238 

4300 FRI NT " STOP : ” ; I ; " TENTITI' IVI " 

4400 P12$= " RI CON INCI PIRE " : GOS'I. JE 8?00 
4403 : 

4410 GOTO 1000 
4413 : 

4480 ST$~" AFFINAMENTO SOL." 

4490 VR '18 >=VR C 0 J : VR < 9 ) =VR f 1 > : K2= 1 E~7 
4493 : 


4500 FOR K=0 TO 3 •' H=Q : IF K<2 
4510 IF K~1 OR K~3 THEN H~H+ 
4513 : 

4520 N= < VR < 2#K ) +'VR < 2#H > > 72 
4538 V=CVR C2* l<+1>+VR<2*H+1 ?> 
4540 GOSUE 6000 •'H--0 : IF FI CO 
4550 IF F2-C0 THEN H=H+4 
4560 VRCH }~X■ VR<H+1>=V 
4570 NEXT 
4573 : 


THEN H~1 


THEN H~2 


4580 N= < VR 8 > + VR < 2 
4590 V= f VR C 1 + VR (. 3 
4608 GOSUE 4800 


■ì+VRi.Ml' fVROS ■' 
"} +VR C 5 ') + VR C 7 


V4 

4 


4618 IF RBS (. N-VR 8 } ?>K2 THEN 4630 


4613 


4620 IF FIBSCV“VRC9??<K2 


THEN 4700 
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4630 

4633 

4640 

4700 


4730 
4733 
4800 
4810 
4820 
4838 


4833 
5000 
5010 
5013 
5040 
5050 
5060 
5063 
5070 
5080 
5083 
6000 
6010 
6020 
6023 
6027 


1 = 1 + 1 : IF I>100 THEN 4300 

VR 8 ~y, : VR e 3 > =v : GOTO 4500 

FRINT" LCRSRT3SOLUZIOHE RFPROSSIMRT 

fi" 

GOTO 4400 


RC—2 : 00SUE 8100 

PRIHTSTf-; I : FRI NT 

PRINTS*:”CSHIFT3 + CCRSRT3 N="; X 

PR1 NT8$ ; " CSH I FT 3 + [ CRSRT3 V= " V : RETUR 

N 

F1 $-• " c; 2+N+Y ? /3“ 1 /2* 2-X •' - X+V ■' " 

F2$= " 1 /2* ( N-Y +1 /3* < 2*N-3 J -3+2* V " 


RC~13 : GOSUB 8100 

FRI NT"-" 

PR I NT " F1 f -. X > V li 1 ~ " ! F1 $ 

RC= 16 ••GOSUB 8100 

FR I NT " F2 X j V.■ F2f : RETURN 

F1 = < 2+N+V /3-1 /2* 2-N ) ~ X+V ) 

F2~ 1 /2* < X-Y > +1 /3* •••; 2*N~3-3+2*Y 
RETURN 

R E N * * * * * * * * * * * * * * * $ * $ $ $ $ ^ •*' * ^ ** 
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NUMERI 

COMPLESSI 


T -;’ 1 - 

; 




| NUMERI COMPLESSI 

1 = NUOVO 

x<- 

2 = IN MEMORIA 

M <-X 

3 = DA MEMORIA 

X«fl 

4 = SCAMBIO 

X V 

5 = SOMMA 

x+v 

6 = DIFFERENZA 

x-y 

7 = PRODOTTO 

X*Y 

3 = QUOZIENTE 

X/V 

X= 0+J0 

Y= 0+J0 

Z= 0+J0 


M= 0+.J0 


******* 


SCEGLI CHE COSA 

VUOI FARE > 


I numeri complessi sono antipatici. Certo l’inse¬ 
gnante ci ha spiegato che sono molto importanti, che 
interi campi del sapere umano, come l’elettrotecnica, 
forse non esisterebbero senza questa parte della ma¬ 
tematica... Comunque sono e restano antipatici. In¬ 
tendiamoci, non è che siano difficili e, tutto somma¬ 
to, le operazioni da fare sono sempre le stesse, quelle 
che ormai noi conosciamo bene, ma tutte quelle «i», 
tutti quei «j» sembra quasi che ci beffino dalle pagine 
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NUMERI COMPLESSI 


il i _ i II II I II II I 

del nostro quaderno quando, sotto interrogazione, 
ci siamo accorti di aver fatto un grosso svarione, per 
giunta «cretino». Non c’è niente da fare: è proprio 
troppo facile sbagliare quando si debbono fare pas¬ 
saggi e semplificazioni su queste quantità «doppie», 
subdole. Ci vorrebbe un compagno, una «spalla» 
che ci metta in guardia e ci avvisi quando l’errore, 
quatto quatto, si è infiltrato nelle pagine del nostro 
quaderno di matematica. Il compagno c’è e manco a 
dirlo è il nostro C-64. I numeri complessi divente¬ 
ranno semplici e facili come i numeri a cui siamo già 
abituati e tutti gli irridenti «immaginari» cadranno 
sotto i tiri serrati del cannone-laser sgranati dal C-64. 
Il Sommo Matematico che a suo tempo si è inventato 
i numeri complessi creperebbe di invidia nel vedere 
quello che riusciamo a fare, e con quale rapidità... A 
proposito: insieme al nostro C-64, e senza esagerare 
perché «non si sa mai», non sarebbe forse il caso di 
scendere in confronto anche con quel nuovo inse¬ 
gnante supplente, tanto giovane ma tanto mostruo¬ 
samente rapido nei calcoli? 


«I numeri complessi sono veramente complessi!». 
Giorgio non sorride neanche alla battuta infelice di Mas¬ 
simo: ha quasi finito di scrivere il programma. 

Ecco: sullo schermo appaiono ben 8 possibilità. Il 
funzionamento, così gli ha garantito MISTER BIT, è faci¬ 
le come quello di una calcolatrice tascabile. Inserendo 
un nuovo numero in X, gli altri scorrono in basso, Y va in 
Z, e Z scompare. M, invece, rimane uguale. «E il nume¬ 
ro in memoria» — dice Massimo. Si possono fare le 
quattro operazioni, ricordando che J è l'unità immagina¬ 
ria (indicata anche con «i» in molti testi). 

«Ma così è semplice! È un gioco con il C-64!». 


COME FUNZIONA 

Questo programma utilizza il vettore VR( ) per con¬ 
servare la parte reale e la parte immaginaria dei numeri 
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complessi X, Y, Z ed M, secondo lo schema: 


VR(0) = Re(X) 
VR(2) = Re(Y) 
VR(4) = Re(Z) 
VR(6) = Re(M) 


VR(1 ) = lm(X) 
VR(3) = lm(Y) 
VR(5) = lm(Z) 
VR(7) = lm(M) 


Il programma si presenta offrendo la scelta fra 8 atti¬ 
vità diverse (righe 1100-1180) e mostrando i valori at¬ 
tuali di X, Y, Z, M. 

Di questo si occupa la subroutine locale a riga 1800; 
dopo aver pulito lo schermo (riga 1800), a riga 1810 dà 
a RE e IM i valori delle componenti di X, e poi usa a sua 
volta la subroutine a riga 1900 la quale, dati due numeri, 
RE e IM, genera una stringa C$ che contiene il numero 
complesso pronto per essere visualizzato. Nella riga 
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1820 quindi si stampa sul video il valore di X. 

Analogamente con Y (righe 1830, 1840), Z (righe 
1850, 1860) e, dopo aver fatto apparire un separatore, 
con M — (righe 1870, 1880). 

Esaminiamo ora le otto parti di programma seleziona¬ 
te dalla SUBROUTINE 9 di riga 1880. Contrariamente 
agli altri programmi, le 8 attività non sono realizzate con 
subroutines, infatti in riga 1190 abbiamo /GOTO/ e non 
/GOSUB/, e manca la riga successiva di rimando all'ini¬ 
zio del programma: le cose non cambiano molto, basta 
terminare ogni segmento di programma non con un 
/RETURN/, tipico delle subroutines, ma con un /GOTO/, 
seguito dal numero di riga voluto. 

Cominciamo dal primo pezzo di programma che co¬ 
mincia a riga 1300 (NUOVO X). 

Per prima cosa X e Y vengono scalati di un posto, Z si 
perde ed X è reso uguale a 0+J0: si usa la subroutine 
1800 per far apparire questa situazione (righe 1320- 
1350). Viene poi usata due volte la SUBROUTINE 7, (ri¬ 
ghe 1360-1370) per la parte reale e la parte immagina¬ 
ria di X. Poiché 1=0, i due numeri vanno al posto giusto 
nel vettore VR( ). 

Viene chiesta conferma dell’esattezza delle cifre in¬ 
trodotte (righe 1360-13,70) con la SUBROUTINE 6, e se 
c’è un errore si torna a riga 1320, per ripresentare le do¬ 
mande, altrimenti si va a riga 1000 (riga 1390), per pre¬ 
sentare la nuova situazione e chiedere che cosa fare. 
La parte di programma che si occupa della seconda at¬ 
tività — IN MEMORIA — si riduce ad una sola riga, la 
1400: i valori Re(X) e lm(X) sono attribuiti anche ad M, 
poi si continua a riga 1000. 

L'operazione inversa, dalla memoria ad X, è invece 
più complessa: occorre anche in questo caso, come 
abbiamo visto in riga 1300, scalare di un P°s1° X e , 
poi a X possono essere attribuiti i valori di M (riga 

1460). . .... 

Per scambiare tra loro X e Y si usano due variabili au- 
siliarie, RE ed IM, effettuando il passaggio in tre tempi, 
da X a RE e IM, da Y a X, terminando col passaggio da 
RE e IM a Y (righe 1500-1510). Poi si torna a riga 

1000 - • -i 

La somma di X e Y viene effettuata a riga 1550, con il 
risultato in RE e IM, poi si usa la subroutine locale di riga 
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1950 per portare Y in X, poi Z in Y, e rendere Z=0+J0, 
dopo di che si mette in X il risultato dell’operazione (riga 
1560). 

La sottrazione di riga 1600 è del tutto analoga: una 
volta calcolato il risultato, provvisoriamente in RE e IM, si 
salta a riga 1560 (da riga 1610). A riga 1650 comincia il 
programma per il prodotto: anche in questo caso si pre¬ 
para provvisoriamente in RE e IM il risultato; poi si va a 
riga 1560. 

Per la divisione, invece, per prima cosa (riga 1700) si 
prepara la variabile ausiliaria DE, che è il denominatore 
che si ottiene dalla razionalizzazione della frazione, e 
poi è calcolato il valore RE, parte reale del risultato, (riga 
1710), e il valore IM, parte immaginaria del risultato (ri¬ 
ga 1720), continuando poi al solito a riga 1560. 


333 RE M YY Y Y Y Y Y Y $ Y $ YY Y Y $ Y Y Y Y Y y $ y $ $ $ y y $ y 
1000 FR$= "NUMERI COMPLESSI" 

1003 R E M Y Y Y Y $ Y Y $ Y Y Y & Y Y Y Y Y V Y Y Y Y Y Y Y Y Y Y Y Y 
1007 REM : 

1010 GOSUE 1800 
1013 : 

1100 FN$<1) = " NUOVO " 

1110 PN$(2::- = "IN MEMORIA M*-X" 

1120 PN$C3) = "DR MEMORIE! X*f1 " 

1130 PN$<4?-"SCAMBIO X V" 

1140 PN$C 5 ? = "SOMMA X+V" 

1150 PN$ C 6 ? = " Il IFFERENZ A X-V " 

1160 FN«:C7) = "PRODOTTO NYV" 

1170 FN$ e] 8 =- " QU0ZI ENTE X/Y " 

1180 PN~8 •' GOSUE 8400 

1130 OH PSCOTO 1300.. 1400, 1450, 1500, 1558, 
1608,1650,1700 
1133 : 


1308 FOR K~0 TO 3 : 'v'R < 5-K ~VR 3~K > : NEXT 

1310 vr •: 0 :> — 0 : vr •: i ;<=0 : rosi ie 1R00 
13.13 : 

1320 111$= "INTRODUCI LEI PARTE" : 1=0 
1338 M2$= " REALE DI X ” ■' M3$= " RE C X > - " 

1348 GOSUE 8830:M2»="IMMAGINARIA ET X" 
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1350 M3$= " I M ( X ■;* =- " : GOSUE 8800 
1353 '• 

1360 Ml$=" IL NUMERO X" : M2$= " " 

1370 M3$="E' OK ? CS/N? >" : GOSUE 8400 
1380 IF RI$—"H" THEN 1320 

I O i~j O 
O 

1330 GOTO 1000 
1333 : 

1400 vr '• 6 > =vr 0 ;• : vr.(? :• =vr <: 1 ) : goto i 000 

1403 : 

1450 FOR K“0 TO 3 : VR C5-K?=VR<3-K? '• HEXT 
1460 VR ( 0 ;• =VR f. 6 > : VR t 1 ) =VR 7 > ■ GOTO 1000 
1463 : 

1500 RE=VR C 0 : IM-VR '• 1 > ’■ VR 0 > =VR f , 2 > 

1510 VR 1 ) - VR '• 3 > : VR C 2 > =RE : VR 3 ) = IM 
1520 GOTO 1000 

1523 : 

1550 RE “VE 0 > +VR i 2 > : I M-VR ( 1 > +VR 3 
1560 GOSUE 1350 : VR C 0 =RE : VR '■ 1 ) = IM 
1570 GOTO 1000 
1573 : 

1608 RE-VE < 0 - VR C 2 ) : I M-VR ( 1 VR 8 ) 

1610 GOTO 1560 
1613 : 

1650 RE-VR ■: 0 } $VR C 2 ) ~VR 1 ■' #VR C 3 
1660 IM—VR< 1 "}#VR 2> +VR'■ 0 ■'$VEC3 > 

1670 GOTO 1560 
1673 : 

17 G G E E - V R ( 2 > # V R 2 > + V R C 3 > # V R C 3 ) 

1710 RE- VR (. 0 > TVR ( 2 > +VR < 1 > *VR ■' 3 > > /DE 
1 720 I M= C. VR >r 1 *VR C2 > - VR 0 ' :i #VR < 3 •' •' /DE 
1730 GOTO 1560 
1733 : 

1 000 GOSUE 8000 : RC-13 : GOSUE 8100 
1 01 g i pl- VR 1 > : RE=VR ( 0 : GOSUE 1300 
1820 F'R I NT " /= " l CS 
1830 I M—VE ( 3 ) ; RE-VR ( 2 ) '• GOSUE 1300 

1840 PRINT"Y="1Cf 
1 850 IM—VE 5? : RE-VR4) '• GOSUE 1380 
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1860 PRI NT " Z= " C$ : PRI NT " -" 

1870 i ri-v'R <:?y ■ re=vr < 6 :> ■ cosub i 300 

1880 PRINT"P1=";C$: RETURN 

1 t—1 r“^1 •—1 

O 

1300 81$="+-J" : IF IM<0 THEN S1$="~J" 

131 0 C$=P11 D$ C STR$ < RE > ,1,7 !:■ +81 $+P1 I H$ ( STR$ 

ar-U',2 ,?') 

1320 RETURN 
1323 : 

1350 FOR K=0 TO 3 : 'v'R C K ) ~VR C K+2 } •' NENT 
1360 VR(4 > =0 :VR(5)=0 : RETURN 
1363 : 

1367 R E PI W- W- $ $ $ $ $ W- T % ¥ .4: ty: $ ty! $ $ S+i $ $ !f !+l $ •'fi :>}»: :£ l# $ : 
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EQUAZIONI DI SECONDO GRADO 

EQUAZIONI 
DI 11° GRADO 



Certo che le equazioni di secondo grado sono bel¬ 
le: dall’alto di quell’esponente quadrato si incomin¬ 
cia a respirare un’aria più piacevolmente matematica. 
Ci sembra quasi di comandare a quelle due radici: 
voi siete reali, voi coincidenti, voi complesse... Ep¬ 
pure un piccolissimo dubbio viene ad offuscare tanta 
piacevolezza. Tutti gli esercizi del libro di testo di 
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Matematica danno come risultato sempre dei valori 
esatti, comodi, tutti i discriminanti si sciolgono co¬ 
me neve al sole di primavera perché sono sempre co¬ 
stituiti da facili quadrati perfetti che danno dei bei 
valori rotondi, precisi. Noi che siamo bravi in mate¬ 
matica abbiamo però provato ad applicare le equa¬ 
zioni di secondo grado nelle altre materie che studia¬ 
mo: che disastro! Ogni volta sono saltati fuori dei 
pestiferi calcoli sotto radice con dei risultati proprio 
bruttarelli, zeppi di cifre e... dobbiamo ringraziare la 
nostra fedele calcolatricetta tascabile, perché, altri¬ 
menti, non saremmo riusciti neanche ad andare oltre 
la soglia del radicale. Questa volta il C-64 ci guiderà, 
mano nella mano, costruendo le varie soluzioni, «ra¬ 
gionando». 

A questo punto siamo già esperti di algebra con il 
computer per cui possiamo toglierci il lusso di essere 
anche eleganti e, perché no, un pò saccenti. 

«Ma secondo te ragiona?» chiede Massimo a Gior¬ 
gio. 

«Non credo, a volte sembra di sì, ma poi...». 

Sullo schermo acceso appare MISTER BIT. 

PUÒ' EFFETTUARE DELLE SCELTE f.J-, 

PURCHÉ" PREVISTE DHL FROGRAMMR )=£. 

CHE DEVE CUNEIDERRRE TUTTI I A A 

CASI ALTRIMENTI NON E - ' UN BUON h 
PROGRAMMA. J V 

«Per esempio, nella soluzione di un'equazione di se¬ 

condo grado, si possono presentare diversi casi», dice 
Giorgio, «e i calcoli da eseguire sono diversi». 

In effetti appena introdotti i tre coefficienti, il program¬ 
ma li esamina, e, se è il caso, calcola il discriminante, 
dal quale dipende il tipo delle radici. 

Le operazioni da fare sono diverse, ma è il program¬ 
ma che prevede e controlla i vari casi, ottenendo risultati 
diversi e deve essere tale che un caso non previsto non 
dia risultati sbagliati, ovvero lo blocchi. 
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COME FUNZIONA 


All’inizio questo programma chiama la subroutine lo¬ 
cale — inizia a riga 1900 — che pulisce lo schermo, fa 
apparire la forma normale dell'equazione di secondo 
grado (righe 1900 e 1910) e riposiziona il cursore a riga 
2 dello schermo. 

Dopo questo vengono chiesti i tre coefficienti (righe 
1100, 1110, 1120) e, se c’è stato un errore, si ripropon¬ 
gono le domande (righe 1130-1150). Se A è uguale a 0 
c’è un errore, mentre se B oppure C sono uguali a zero 
si tratta di casi particolari (righe 1160-1180). Nel caso 
generale il programma continua, presentando il calcolo 
del discriminante (righe 1200-1260) ed utilizzando poi 
la SUBROUTINE 5 per fare una pausa (riga 1270). A se¬ 
conda del valore del discriminante (la variabile VI) il 
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programma prosegue in modo differente. 

Se il discriminante è uguale a zero il programma pro¬ 
segue (righe 1320-1370) presentando il caso di due ra¬ 
dici coincidenti. A riga 1380 è di nuovo utilizzata la 
SUBROUTINE 5 per effettuare una pausa prima di tor¬ 
nare a riga 1000. 

Se il discriminante è maggiore di zero si continua a ri¬ 
ga 1400 che fa apparire una frase sullo schermo, poi 
(righe 1410-1440) sono calcolate le due soluzioni e tra¬ 
sformate in stringhe, XI$ e X2$, e si preparano altre due 
stringhe S1$ e S2$, prima di continuare a riga 1700. Si fa 
così per usare lo stesso pezzo di programma (righe 
1700-1840) per presentare i risultati, che siano reali o 
complessi coniugati. 

Infatti, nel caso di discriminante negativo, il program¬ 
ma continua con riga 1500, che manda due frasi sullo 
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EQUAZIONI DI SECONDO GRADO 


schermo, poi viene calcolata sia la parte reale (XI, riga 
1510) sia quella immaginaria (X2, riga 1520) della solu¬ 
zione, preparandole in forma di due stringhe (come nel 
caso di soluzioni reali) nelle righe 1530, 1540. 

Ora i due casi si fondono in uno solo (le differenze so¬ 
no nel contenuto delle stringhe), preparando tre strin¬ 
ghe (righe 1700, 1710, 1720). Le due righe che seguo¬ 
no calcolano le lunghezze dei numeri che dovranno es¬ 
sere scritti (variabili V3, V4) per poter fare (a riga 1770) 
un segno di frazione della lunghezza giusta, e per cen¬ 
trare (riga 1790) il denominatore. 

Se il discriminante è maggiore di 0, si preparano al¬ 
cuni valori (riga 1782) per andare alla subroutine locale 
di riga 3000: questa subroutine semplifica la frazione 
(se è possibile, naturalmente) e la riga 1786 stampa l'e¬ 
ventuale frazione semplificata. 
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Terminata la presentazione dei risultati (a riga 1850) il 
programma torna alla domanda di riga 1380. 

A riga 2000 comincia la parte del programma che 
presenta la soluzione nel caso di equazioni pure (B=0). 
Le due soluzioni sono opposte e sono calcolate a riga 
2060, e trasformate in stringa (riga 2070). Se necessario 
è aggiunta l’unità immaginaria (riga 2080) e i due risul¬ 
tati sono presentati dalle righe 2090 e 2100. Si continua 
al solito a riga 1380. 

Nel caso di equazione spuria occorre solo calcolare 
una soluzione (l'altra è uguale a 0) e questo avviene alle 
righe 2230-2250, poi si va alla domanda di riga 1380. 


333 

1000 FR$- "S0LUZ. EQIJflZ. TI GRADO” 

1003 REN**##*###*#######******##*#*#### 
1005 : 

1010 GOSUE 1300 : MI$=" INTRODUCI IL." 

1013 : 

1100 M2$=" COEFFICI ENTE " '• M3$= " A= " 

1110 GOSUE 3800 : M3$="E= " : GOSUE 8800 
1120 M3?-="C= GOSUE RAPIR 
1123 = 

1130 M1$="I COEFFICIENTI":M2$="" 

1140 M3$="SQN0 OK (8/10 ?” ; GOSUE 8400 
1150 IF RI$="N" THEN 1010 
1153 = 

1160 IF VR(0>=0 THEN P12$=”ERRORE IN FI" : 0 
OTO 1140 
1163 : 

1170 IF VEC 1 ~0 THEN 2000 
1180 IF VR<2?=0 THEN 2200 
1183 : 

.1200 V1 =VR ( 1 :> %VR ( 1 ) : RC—8 : GOSUE 8100 
1210 FRI NT"DISCRIMINANTE = "; 

1220 F‘R I NT " E T2-4 A#C =" 

1230 FRI NT " ICRSR TU = " ; MI D$ < STR'T C V1 > ,2,6 > 
1234 FRI NT"-4*".: 
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1240 F'R I NTVR C 0 )" ; vr 2 ) ; " = " 

1250 V1 = V1 -4*VR C 0 > VR C 2 > 

1254 PRINT" L CRSR T] = " ; V1 

1260 FRINT"C2 CRSRTI QUINDI ». 

il 

a 

1263 : 

1270 N2$="CONTINUARE" : GOSUE 3200 
1300 GOSUE 1300 : IF V1>0 THEN 1400 
1310 IF V1C0 THEN 1500 
1313 '• 

1320 PRINT"CCRSRT]DUE RADICI COINCIDENTI 

li 


1330 FRINT"CCR3RT] -E" 

1340 FRINT"X1=X2= -= " 

1350 PRINT" 2*A" : FRINÌ"C2 CRSRT] = 

it • 

1354 N=~ 1 #VR 1 :> : D=Z*VR < 0 ? 

1360 printn;v";d;"="; 

1364 GOSUE 3000: IF 1=0 THEN FRINT:COTQ 1 
370 

1363 printn; v’jd; "=" 

1370 PRINT"CCRSR TI = "J N/D 

•j “7 *5; ; 

1380 M2$="RICONINCIARE" : GOSUE 8200 
1330 GOTO 1000 


1333 : 

1400 PR I NT " [ CRSR T3 DUE RAD ICI REALI " : PR I 
NT 

1410 X1 = < SQR C V1 ') - VR ( 1 "> > / C2*VR 0 > ? 

1420 X1$=STR$CX1)= 51$=" + " 

1430 X1 = C SQR ( V1 > + VR 1 > > / < ~2 ) *VR < 0 ) ) 

1440 X2$=STR$ <. X1 ) : 52$= "-" : GOTO 1700 
1443 : 

1453 : 

1500 FRI NT" DUE RADICI COMPLESSE" 

1506 PR I NT " J=IJN ITA r IMMHG . ) " 

1510 V1=-1#V1 : X1=~1#VR(1)/C2#VR(0>? 
i s--0 SQR ( V1 "t / C 2VVR C Gì ) ) : S1 $= " + J " 

1530 S2$= " - J " '■ X1 $=ri I D$ ( STR$ CX1 ) ..1,6 ) +S1 $ 


95 

































Z3 -' TLZ 







L. 






_ _! ALGEBRA CON C-64 






J 















+n I D* < STR* < X 2 y , 2,7 

1540 X2*=N IE* < STR* C X1 > , 1,6 ? +S2*+M I B* C STR 
* X2 > , 2,7 > 


1543 

1700 

1710 

1720 

1730 

1740 

1743 

1750 

1760 

1770 

1780 

1781 

1782 

1784 

1786 

1788 

1780 

1783 
1800 
1810 
1828 
1838 
1848 
1842 


1844 

1846 

1848 

1850 

1853 

1808 

1810 

1820 

1833 

2800 


R*=P1ID*<STR*<2#VRC 3 >),1,6? 
D*=M ID* ( STR* C SOR < V1 > , 2, 7 ? 

b*=m i n* < str* c vr < i 1 :> >, 1 , s ? 

V3-LEN< B*+II*+S 1 * ? : V4=LEN ( R$ > 
IF V4>V3 THEN V3=’v’4 


F’R I NT " C 2 CRSR T] " ; B*S1 * j II* 

FRINT"XI- 

FOR K=0 TO V3 : PRINT" — "J : HENT 
FRI NT" 

IF LEHCS1*>>1 THEN 1788 

N-SQR C V1 y - VR C 1 : H=2*VR < 0 ;■ • SO SUB 300 

0 

IF 1=0 THEN 1788 

printn; ii; " = M ; 

PRINTX1* 

PRINTSPC •' 4+V3/2—V4/2 j R* 


PRINT"C 2 CRSR T] 
PRINT"X2= 

FOR K=0 TO V3 : PRINT" 
FRINT” 


E*.: 


S2*:D* 
NEXT 


IF LENCS1*»1 THEN 1848 

N=SQR■' V1J+VRC1 y '■ Ii=~2$VRC0‘:' : nriRi ig 

00 

IF 1=0 THEN 1848 

printn; v";d; "= m ; 


30 


PRINTX2* : PRIHTSFC< 4+V3/2-V4/2 ; FI* 
GOTO 1380 


GOSUB 8000 : RC=17 : GOSUB 8100 
PRINT " FCX '> = fl*XT2+B*X+C " -1=0 
RC=2:GOSUB 8100 : RETURN 

GOSUB 1800 
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£0 1 0 
2013 
2020 
2030 
2040 
2043 
2030 
2060 
2070 
2030 

2030 

2100 

2113 

2200 

2210 

2213 

2215 

2220 

2230 

2240 

2250 

2253 

2254 
2256 
3000 
3003 

3 1 00 

3110 
3120 
3200 
3303 
3310 
3320 
3330 
3933 


PRIMI" EQUAZIONE PURA (B=0V' 

RC-5 : GOSUE 8100 
FRINT” + - C” 

FRINT"> : : = - SQR<-=" 

FRINT" A" 

i ~sqr res t vr c 2 > /vr <: 0 ? 

:*; i *=m i b* < str* •: x i >, i, ? :> 

IF VRC2?/VR<0»0 THEN Xl$-" J"+nir | $ 

f \ % , 2 ? 

PRI NT ” E 2 CRSR T3 Y, 1 = + " i Y 1T 

FRI NT " [ 2 CRSR T3 Y. 2= - " Y. 1 $ : GOTO 1380 

GOSUE 1300 

FRINT” EQUAZIONE SFURIA <C=0>" 

RC“-6 : GOSUE 8100 

pr i nt " x i - 0 " : vr ( i =-1 #vr < 1 ? 

FRINÌ" C4 CRSR'T']Z2= - B/R ='3 

pr i nt vr c i vr c 0 > ; "=" 

FRINT" ECRSRf] N=VR'• 1 ? : I'-VRC0> 

GOSUE 3000 : IF 1=0 THEN 2256 

printnj; n;"="; 

FRINTN/n: GOTO 1380 
Z=2 : 1=0 

IF INT (. N/Z>#ZON THEN 3200 
IF INTCD/Z>*ZOD THEN 3200 
N=N/Z : D=D/Z : 1=1+1 : GOTO 3100 
Z=Z+1 : IF ZON AND ZC=D THEN 3100 

IF N*B<0 THEN N=-1*RBS<N) : GOTO 3330 
N=AES<N > 

B=HBS<IC' : RETURN 
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PROGRESSIONI 

ARITMETICHE 



Quasi quasi ci dispiace di essere giunti al termine 
di questo libro che ci ha aperto una nuova porta, mo¬ 
derna e potente. 

Entrare nel difficile campo dell’algebra con affian¬ 
co il nostro computer è stato interessante e ci ha cir¬ 
condato, agli occhi dei nostri compagni ed anche del 
nostro professore, di un alone di «esperti», di perso¬ 
ne che sanno, di persone a cui non solo la promozio¬ 
ne è assicurata ma anche di persone a cui guardare 
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con simpatia e rispetto. Bene, bene. C’è un ultimo 
scoglio, ora che siamo proprio vicino all’approdo so¬ 
spirato delle vacanze estive: le progressioni. Ormai 
non ci fanno più paura formule e formulette anche se 
queste progressioni aritmetiche ne hanno proprio 
tante. E allora, ancora una volta avanti con il nostro 
C-64 che, con questo programma, sceglierà per noi 
le formule da applicare ed eseguirà per noi i calcoli 
con una esattezza che solo un computer può dare, 
una precisione tanto più importante ora che si sta av¬ 
vicinando il grande caldo e la nostra mente non rie¬ 
sce più tanto facilmente a concentrarsi sui calcoli ma¬ 
tematici. 


«Il programma si accorge di quali numeri hai inserito 
e calcola i rimanenti» spiega Giorgio. Massimo annui¬ 
sce: «Inserisco solo i valori noti, per gli altri batto solo il 
tasto /RETURN/, e devo inserire almeno tre valori su cin¬ 
que: i due rimanenti sono calcolati automaticamente». 

In una progressione aritmetica interessano, in gene¬ 
re, il primo termine (Al), la ragione, ovvero la quantità 
da sommare ad ogni termine per ottenere il successivo 
(D), il termine di posizione N, indicato con (AN), la som¬ 
ma dei primi N termini, cioè dei termini da 1 a N, chia¬ 
mata (SN). 

MISTER BIT appare sullo schermo, un po’ ironico: 


E' FORTE IL C-64 
RRGRZZI ! 



COME FUNZIONA 

All'inizio questo programma, dopo aver pulito il video 
con la SUBROUTINE 1, fa apparire, tramite la subrouti¬ 
ne 3000, il significato delle abbreviazioni usate (riga 
1010) e scrive una avvertenza (righe 1020, 1030), e 
prosegue chiedendo di introdurre tre valori numerici su 
cinque (righe 1100-1150). Per chiedere i dati numerici 
non usa direttamente la SUBROUTINE 7, ma usa una 


99 




























L 






Li! ALGEBRA CON C-64 













E. 








subroutine locale a 3500, che si comporta come la SU- 
BROUTINE 7 (infatti la usa a riga 3500), ma in più, se si 
preme solo /RETURN/, conserva in K1 e K2 il valore che 
ha la variabile I. Al termine delle cinque domande K1 e 
K2 ci indicano quali valori sono da calcolare, e possono 
servire per scegliere come proseguire (righe 1200, 
1210). La situazione completa è data dallo specchietto 
seguente: 


SI DEVONO 
CALCOLARE 

K1 

K2 

TOTALE 

K1+3K2 

RIGA 

PROGRAMMA 

D 

N 

1 

0 

1 

4050 

D 

Al 

2 

0 

2 

4060 

D 

AN 

3 

0 

3 

4070 

D 

SN 

4 

0 

4 

4000 

N 

Al 

2 

1 

5 

4200 

N 

AN 

3 

1 

6 

4100 

N 

SN 

4 

1 

7 

4010 

Al 

AN 

3 

1 

9 

4300 

Al 

SN 

4 

2 

10 

4020 

AN 

SN 

4 

3 

13 

4030 


I dieci segmenti di programma che si occupano dei 
calcoli sono strutturati come subroutines locali. Effettuati 
i calcoli il programma prosegue presentando i risultati 
(righe 2000-2140) e usa a riga 2200 la SUBROUTINE 5 
per effettuare una pausa prima di chiedere nuovi valo¬ 
ri. 

Alcuni calcoli, più semplici, sono raggruppati ciclica¬ 
mente nelle righe 4000-4080: a seconda del punto di in¬ 
gresso si calcolano prima i valori cercati, e poi, even¬ 
tualmente, si ricalcolano valori già noti. 

Gli altri sono un po' più complessi e vengono effettuati 
a partire dalle righe 4100, 4200, 4300. Nelle righe 4100- 
4160 si risolve un'equazione di secondo grado, che 
può portare a segnalazione di errore (riga 4400) se il di- 
scriminante è minore di zero (riga 4120), ovvero se en¬ 
trambe le soluzioni sono negative (righe 4140, 4160). 

Le formule utilizzate sono le seguenti: 
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4000 

O 

II 

£ 

1 

—A, 


N- 1 

4010 

N _ AN-A1 + i 


D 

4020 

T~- 

1 

5 

Q 

1 

II 

Y- 

4030 

AN = Al + (N - 1) D 

4040 

SN ~ A1 + AN ■ N 


2 

4050 

N = 2SN 


AN + Al 

4060 

Al- 2SN AN 


N 

4070 

AN - 2SN AN 


N 

4080 

Y— 

1 

£ 

II 

Q 


N- 1 

4100 

D-2A1 ± V(D-2A1) ! + 8D-SN 

2D 

4200 

D + 2AN ± V(D + 2AN) z -8 D-SN 

2D 

4300 

Y— 

1 

5 

Q 

+ 

co 

il 


N 


9 97 REM# t t ti t iti t # it t t iti it it ti it it ti it ititi itti itti it ti it ti ti * 
1000 PR$= "PROGRESSIONI RRIT." 

10 O 3 R E M ti ti t-i it it it it it it it it it t ti it ti ti it it ti 111 it it it it it ti it it 
1007 : 

1010 GOSUB 8000 : OOSUE 3000 : K1~0 : KE=0 
1020 FRI NT" CCRSRt] ERTI ERE CCTRL3HRVS 0 
N] RETURNCCTRU + ERVS OFF] PER I" 

1030 PRIMI" VALORI EH CALCOLARE" 
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1033 : 

11 00 n1 $=" I HTROnuc I TRE" 


1 1 10 

M2T- 

"VRLOF 

I 

NOTI 

Il • T 

’ j. 

1120 

M3$= 

"D =" 

OO 

SUE 

3500 

1130 

M3$= 

"N =" 

OO 

SUB 

3508 

1148 

M3f= 

"RI”" 

00 

SUB 

3500 

1150 

M3$= 

"RN=" 

00 

SUE 

3500 

1160 

M3$= 

il r’•« 

OO 

SUB 

3500 


1200 K1=K1+3#K2 

1210 OH K1GOSUE 4050, 4060.. 4070.. 4000.4200 
.. 4100 .• 4010.. 4400.. 4300 .■ 4020 .• 4400.. 4400 
, 4030 
1213 : 

2000 OOSUE 8000 :GOSUE 3800 
2010 RC=3 : G03UB 8100 
2180 FRI NT" D = " ; VR C 0 
2110 FRI NT" N =".iVR(D 
2120 FRINT" R1=";VR<2> 

2130 FRINT" RN=";VR<3? 

2140 PRINT" SN=";VR<4 > 

2143 : 

2200 ri2$= " CHLCOLRRE HNCGRH" : GOSUE 8280 
2203 : 



3000 

3010 

3020 

3030 

3040 

3050 

3060 

3063 

3500 

3510 

3520 

3523 

4000 

4010 


GOTO 1008 


RC=11 :GOSUE 8108 

FRI NT"-" 

FRI NT" I) =RRGIONE" 

FRINT” N -POSIZIONE" 

FRINT" RI-PRIMO TERMINE" 
FRINT" RN=N-ESIMO TERMINE 
PRINT" SN=SOMMH": RETURN 


GOSUE 8800 

ìF RI$="H" THEN K2=K1 : K1 = I-1 
RETURN 


VR < 0 > - VR ( 3 > - VR C 2 •' 
VR a :■ = (. VR '■ 3 - VR '■ 2 ) 


vcvrc ì 

>/VRC0>+l 
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•i ,ti r ~.' iti 
r i’.i .r.. 

VR 

d. : ' 

VRC 

3 

wvr<: 

1?-1 


vr ■: 0 

4030 

i i »—i 

11 {-r 

( 3 ) = 

VR ( 

•") 

j + ( VR (. 

ìy-i 


VR *: 0 

4040 

VR 

/ 4 j 

( VR 

if 

2 '■> + VR ( 

3> ;>$: 

VR 

C1 V2 

4050 

VR 

•: ].:>■■= 

2W 

R 

<4VCV 

R •' 3 > 

+v 

R C 2 

4060 

VR 

C 2 > ~ 

2#V 

R 

<4WR 

ci?- 1 

VR 

f.. 3 } 

4070 

VR 

( 3 ) = 

2TV 

R 

(4VVR 

< ì >-■ 

VR 

r 2 ) 

4030 

VR 

>' 0 = 

CVR 

< 

3 -VR '• 

2> :>/ 

< VR ( 1 - 

4030 

•1 Q O 

RETURN 







‘•r *.V 

4 1 00 

VR 

( 5 ) - 

CVR 

t' 

0>-2#V 

R<2J 

> # 

( VR f : 0 

4110 

l .1 

VR 

( 5 •' = 

VR ( 

5 

+e::+:VR 

: c 0 > $ vr 

( 4 > 

4120 

IF 

VR< 

5 C 

0 

THEN 

4400 



4130 

v h 

i = 

/■ i » i—* 

\ V r:. 

i' 

0?-2*V 

R < 2 ) 

.j 

QR { -, VR 


#VI 

R '• 0 :> 

'l 






4140 

IF 

VR < 

1)} 

0 

THEN 

4070 



4150 

VR 

C1 > = 

C VR 

i' 

0 -2*V 

r c 2 > 

+3 

QRCVR 


*VI 

r ■; 0 







4160 

IF 

VR i' 

i 

0 

THEN 

4070 




4170 
41 < 3 
4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4300 

4310 

4313 

4400 

4410 

4420 


GOTO 4400 

VR 5 } = < VR < 0 ) +2*VR < 3 ? > * C VR < 0 ) +2#VR < 3 

j 'i 

VR •' 5 > — VR ( 5 -S#VR •' 0 ? #VR '• 4 ? 

IF VRC5K0 THEN 4400 

VR ( 1 ) = c VR ( 0 > +2#VR < 3 > - SQR VR 5 ) ? ? / C 2 

*VR<0>> 

IF VR(1)>0 TUEH 4060 

VR ■: l = < VR ( 0 •' +2*VR < 3 + SQR ( VR ( 5 ) ? •' /<. 2 

*VRC0?) 

IF VRt1 ?>0 THEN 4060 
GOTO 4400 

VR ■' 3 ) ss VR C 4 '■> / VR C. 1 ) +VR ( 0 > * C VR C 1 ) -1 ) /2 
GOTO 4020 

RC=10 : GOSUE 3100 
FRINT"ERRORE" 

GOTO 2200 
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APPENDICE 

SUBROUTINES 


Abbiamo riunito qui le subroutines usate da tutti i pro¬ 
grammi di questo libro. Come abbiamo detto questo 
metodo evita di doverle ribattere in ogni programma e 
permette di ottenere programmi più semplici e chiari. 

Ricordiamo che una subroutine è un pezzo di pro¬ 
gramma che termina con /RETURN/ ed è utilizzato dal 
programma principale con una istruzione tipo /GOSUB 
riga/: questa istruzione (GO=vai, SUB = subroutine) fa 
continuare l'elaborazione alla subroutine che RITORNA, 
una volta terminata, al programma principale, precisa- 
mente alla istruzione successiva al /GOSUB/. 

Per ogni subroutine è indicato con esattezza che co¬ 
sa fa e quali variabili usa: questo è prezioso se vorrete 
usarle in programmi creati da voi. L’uso delle subrouti¬ 
nes infatti semplifica molto la programmazione ma oc¬ 
corre usarle con attenzione, preparando prima tutte le 
variabili necessarie, ed utilizzando esattamente le varia¬ 
bili modificate. 

Come prima cosa armatevi di pazienza e copiate tutte 
e dieci le subroutines. Ricordate che non si devono co¬ 
piare le righe dispari. 

Copiate (e controllate) tutte le subroutines, salvandole 
su nastro — meglio se all’inizio di un nastro nuovo — 
con il comando /SAVE "SUBROUTINES”/. 

Quando vorrete scrivere un programma che le usa, 
per prima cosa caricatele dal nastro, con il comandò 
/LOAD "SUBROUTINES”/, e dopo copiate il program¬ 
ma. Salvate su nastro il tutto con il nome del programma 
che avrete scritto. 
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SUBROUTINES 
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TABELLA DELLE SUBROUTINES 

1 - INIZIALIZZAZIONE SCHERMO 

2 - POSIZIONAMENTO CURSORE 

3 - PRESENTAZIONE MESSAGGI 

4 - ATTESA DI TASTO PREMUTO 

5 - PAUSA 

6 - DOMANDA SÌ/NO 

7 - INGRESSO DATI NUMERICI 

8 - INGRESSO STRINGA 

9 - SCELTA PROGRAMMI 
10 - MODIFICA PROGRAMMI 


SUBROUTINE 1 

INIZIALIZZAZIONE SCHERMO 

Molte volte occorrre pulire lo schermo, per esempio 
all’inizio di un programma, oppure dopo aver presenta¬ 
to alcuni risultati e prima di presentarne altri. Per far ciò 
si può usare la SUBROUTINE 1, che pulisce tutto lo 
schermo e prepara sette variabili (CO, CI, C2, C3, C4, 
C5, C6) che definiscono i colori delle lettere e dello 
sfondo nelle varie zone del video. Infatti per tutti i pro¬ 
grammi di questo libro si usa il modo colore esteso, e lo 
schermo è diviso in quattro zone: la prima riga che con¬ 
tiene il titolo, la parte centrale (zona «testo»), le ultime 
tre righe riservate ai messaggi e domande (zona «do¬ 
mande») e il bordo. 

I colori scelti sono: giallo per bordo e sfondo testo, let¬ 
tere nere, bianco per il titolo e viola per la zona doman¬ 
de: se però volete provare altri colori, dopo le subrouti- 
nes troverete un programma che fa per voi! 

La SUBROUTINE 1 fa anche altre cose: presenta sul¬ 
la prima riga il titolo del programma (deve essere nella 
stringa PR$) e prepara una stringa di 22 spazi (S$) che 
serve per cancellare una riga sullo schermo. Inoltre pre¬ 
para due valori (MC e MV) relativi allo schermo. 

II cursore è posizionato all'inizio della riga 3, pronto a 
scrivere nella zona testo. 


/GOSUB 8000/ 
/GOSUB 8100/ 
/GOSUB 8600/ 
/GOSUB 8300/ 
/GOSUB 8200/ 
/GOSUB 8400/ 
/GOSUB 8800/ 
/GOSUB 9000/ 
/GOSUB 9400/ 
/GOSUB 9200/ 
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7503 

REHH 

*•' * ; j|h ’4f m $ 

TV 

;$$SUBROUT I HE # 1 

7505 

REH 

INI2 

IALIZZRZIOHE SCHERMO 

7507 

pepa 


$ $ 

! T IL ILI IL IL IL V IL IL IL IL L ITI IL IL IL IL IL IL L IL L L L 

7305 

REM 




7511 

REM 

SCOPO 



7513 

REM 

QUES 

HA SUBROUTINE PULISCE LO 

7515 

REM 

C' 

CH 

(ERMO, PRESENTA IL TITOLO 

7517 

REM 

DEL 

co 

ROORAMPIA, PREPARA ALCUNE 

7515 

REM 



VARIABILI USATE UH ALTRE 

7521 

REM 



SOEROUTI HE! 3. 

*7» Q -"i O 

REM 




7525 

REM 

PRIMA 

DEL CGOSIJB 8000] : 

7527 

REM 

PR$ 


DEVE CONTENERE IL TITOLO 

7525 

REM 




7531 

REM 

UOPO 

IL 

COOSUB 80003 : 

7533 

REM 

ce 


DEFINISCE IL COLORE DEL 

7 ci *^«5 
i w 'j-j 

REM 



BORDO 

7537 

REM 

Cl 

\ 

DEFINISCE IL COLORE DEL 

7535 

REM 



FONDO TITOLO 

7541 

REM 

C2 

\ 

DEFINISCE IL COLORE DEL 

7543 

REM 



CARATTERE TITOLO 

7545 

REM 

C3 

< 

DEFINISCE IL COLORE 

7547 

REM 



DEL FONDO TESTO 

7545 

REM 

C4 


DEFINISCE IL COLORE DEL 

7551 

REM 



CARATTERE TESTO 

7553 

REM 

C5 

z r 

DEFINISCE IL COLORE DEL 

7555 

REM 



FONDO DOMANDE 

7557 

REM 

C 6 

,- r 

DEFINISCE IL COLORE DEL 

7555 

REM 



CARATTERE DOMANDE 

7561 

REM 

3$ 

•CE 

"UNA STRINGA DI 40 SPAZI 

7563 

REM 

MV 

/* 

CONTIENE L'INDIRIZZO 

7565 

REM 



DELLA MEMORIA VIDEO 

7567 

REM 

MC 

£ 

CONTIENE L"INDIRIZZO 

7565 

REM 



DELLA MEMORIA COLORE 

7571 

REM 




7585 


7555 





8000 

FRI NT "CSI 

HIFT 3 + C HOME 3" : C0=7:C 1=6 :C2 


= 1 : C 

:3=7 : C4= 

0 

































SUBROUTINES 


004 

C3=4 ; C6--8 : P1V-1824 '■ PI 

C=5523S 

0 1 0 

POKE 53265, FEEK 532 

65? OR 64 

rj 1 4 

p 0 K E 53288, C 8 : P 0 K E 

53281,C3 

020 

S$~.POR 1=0 TO 33 

: S$=Sf-+” " : NEXT 

024 

POKE 53282,01 : POKE 

C’/I'-'.'OT' PS 
■J •_» iz_ .• L- ■ J 

1030 

POR 1=0 TO 33 : POKE 

I .* I./6 

P1C+I, C2 : POKE IW+ 

1034 

NÈXT 


1040 

POR 1=880 TO 399 : PC 

IKE P1C+I, C6 

1044 

POKE Pl'v’+I, 168 : NEXT 


1030 

POR K=1 TO LEN F'RT> 

: RT-4'11 I>T ( FRT, K, 1 


8054 

0000 

80t>4 


8077 

3073 


R»FISC<R$? : IF R<64 THEN R=»R+64 
F'i'iKE '• Pl'v’+K .• FI : HE NT 

POKE 646, C4: FRI NT " [ ’HOHE ICS CRSRT3" 
: RETURN 

0$"@0 : 0000",0 


SUBROUTINE 2 

POSIZIONAMENTO CURSORE 


Spesso è necessario stampare su una certa iigai del 
video ma nel Basic del C-64 non esistono istruzion 
adatte II problema è risolto da questa subroutine: basta 
dare come valore a RC il numero di riga su cui si vuole 
posizionare H cursore e usare /QOSUB 81CO/: - calore 
sarà posizionato all'inizio della r '9^ v °' u h ^ 2 p 03 ^ 24 
che la riga 0 è quella del titolo e che le righe 22, 23 e 24 
sono riservate ai messaggi ed alle domande. 


o R fii REr«if:***^^:^-#*SLrBRQIJTINE #2********* 
S&4 Rin pnSIZIONflllENTO CURSORE 

R065 REmmmmmmmmmmmmmmmm 
0067 REM 
8063 RE PI SCOPO: 
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8071 

REM 

8073 

REM 

8075 

REM 

8077 

REM 

8078 

REM 

8081 

REM 

8083 

REM 

8085 

REM 

8887 

REM 

8088 

REM 

8081 

REM 

8083 

REM 

8087 

REM# 

8088 


8100 

FOKE 

8110 

svs 

8187 


8188 

REM#: 


QUESTA SUBROUTINE POSIZIONA IL 
CURSORE ALL'INIZIO DELLA RIOR 

VOLUTA 


: > DEVE CONTENERE IL NUMERO 

DI RI OR SULLA GUFILE SI VUOLE 
IL CURSORE e II A 0 A 24!:' 


NESSUNA VARIABILE E'" ALTERATA 
R E M V # % % % '■¥ # $ % % % # % % % % % # # $ # •# % % % % % # :f: # # 


R E M $ % % # # % $ # # $ # % % * $ # $ ¥ $ ##$$# -fi ¥ .# $ $ $ # $ 


SUBROUTINE 3 

PRESENTAZIONE MESSAGGI 

Le ultime tre righe dello schermo sono riservate a 
messaggi e domande: questa subroutine si occupa del¬ 
la loro presentazione. Per prima cosa le ultime tre righe 
sono pulite e colorate col colore C5, ed in fondo alla zo¬ 
na testo è stampata una serie di sei separatori: nelle tre 
righe saranno presentati i messaggi (o la domanda) 
preparati nelle stringhe M1$, M2$, M3$. Se il messaggio è 
corto non è necessario usare tutte e tre le righe: se ne 
può anche usare una sola (apparirà solo M3$), oppure 
due (appariranno M1$ e, subito sotto, M3$). Le stringhe 
non usate devono essere nulle, cioè non devono conte¬ 
nere alcun carattere. 

Il cursore è posizionato subito dopo M3$, il colore è 
quello della zona domande: eventuali risposte possono 
essere scritte direttamente. Questa subroutine è usata 
da molte delle subroutines seguenti, che la sfruttano per 
compiti più specializzati. 
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SUBROUTINES 


8545 rem#* mmm $*sueroutine # 3 mmwmm 

8547 RE PI FRESENTAZI OHE MESSAGGI 

8548 REmmmmwmmmmmmmmwmmm 

8551 REP1 
3558 REM SCOPO : 

8555 REM QUESTA SUBACUTINE PRESENTA DEI 
R557 REM MESSAGGI NELLR ZONR DOPTRNDE 

8558 REM DEL VIDEO 

8561 REM 

85F.3 REM FRIMR DEL [GOSUE 86003'■ 

8565 REM PER AVERE TRE MESSAGGI 

MI* ■> PRIMO MESSAGGIO 

pp$ > SECONDO MESSAGGIO 

M8T > TERZO MESSAGGIO 

FER AVERE DUE MESSAGGI 
Ml$ > FRIMO MESSAGGIO 

[vj3$ > SECONDO MESSAGGIO 

PER AVERE UN MESSAGGIO 
8581 PFP1 PI3$ ’> PRIMO MESSAGGIO 

REM M1 f ; M2$ > SE NON USATI = "" 


ojo: 

( —i r.— 131 r.: 


REM 
F 


?PM Dnpn IL CGOSUE 86003 : 

CONTIENE IL VALORE 21 


IL COLORE E' 06-:DOMANDE:* 


8583 

REM 

RC < 

8531 

REM 

IL CUR: 

8533 

REM 

M3$; 

8595 

REM 


8537 

REM## 


8599 



8600 

FOR K 

r-830 V 

8618 

POKE 

<MV+K> 

8620 

RU'—k 1 1 

:GOSUE 

3630 

POKE 

646. ■ C6 

S640 

IF MI 

■r .~ M " T 


8560 

8670 


"" TMEN 8670 

pp I NT " r CTRL 3 + E RVS OH 3 " M2T 

PRI NT " il CTRL 3 4- C RVS OH 3 " M3$" C CTRL 3 

4- r RVS 0FF 3 " : RETURH 
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SUBROUTINE 4 


ATTESA DI TASTO PREMUTO 

Questa subroutine usa la precedente per far comparire 
la domanda, dopo di che ripristina il colore testo e si 
mette in attesa che un tasto sia premuto. Può essere 
usata tutte le volte in cui la risposta non deve apparire 
dopo le domande e quando basta sapere quale tasto è 
stato premuto: la stringa A$ contiene un solo carattere 
che corrisponde al tasto azionato. 

Questa è la subroutine più importante per le comuni¬ 
cazioni tra il programma e chi lo usa: il programma può 
valutare il tasto azionato e proseguire in modi differen¬ 
ti. 


8253 REM$####$####SUBR0UTI NE 

8255 REM HTTESfì IH TASTO PREMUTO 

8257 R E M # $ $ # % $ % $ % % % % % # % % % % % % $ $ $ ’M $ $ $ $ $ $ % $ 

8253 REM 

8261 REM SCOPO: 


8263 

8265 

8267 

8263 

C‘ 07 1 
W&.I 1 

Q **"l “7 *•"! 
U‘C-1 •-* 
O r-“ 

oì r j 

QH77 

»-*»£ I I 

8279 

O O r"i 1 

iTi »~i i~l r ~l 
1^1 1^.1 <# J 

8285 

8287 

C ,r 70 CI 

7 

8231 

8233 

8237 

8233 


REM QUESTA SUBROUTINE PRESENTA TJEI 
REM MESSAGGI (USA SUB#3? . POI 
REM RIFRISTIMA IL COLORE TESTA E 
REM ATTENDE CHE SIA FREMUTO UN 
REM TASTO. 
REM 

REM PRIMA DEL CGOSUE 83003: 

REM M1$;M2$;M3$ > MESSAGGI 
REM COME PER SMP#3 
REM 

REM DOPO IL CGOSUE 83003: 

REM A$ < CONTIENE IL CARATTERE 
REM DEL TASTO PREMUTO 
REM RC < CONTIENE IL VALORE 21 
REM IL CURSORE E' POSIZIONATO DOPO 
REM M3$J IL COLORE E' C4 (TESTO? 
REM 

REmmwMMMmmmMwmmwww.-* 
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03 99 


GOSUB 3600 ; POKE 646,C4 
GEI FI:? : IF 3$="" THEN 3310 
RETURN 

E E PI # $ $ $ # # # * $ % % % % % % % % % % % % % % % # ¥ 


SUBROUTINE 5 

PAUSA 

Questa è la prima subroutine di comunicazione specia¬ 
lizzata: si usa quando il programma ha terminato una fa¬ 
se ed attende la via libera da parte di chi lo usa per con¬ 
tinuare. , 

Permette quindi di avere tutto il tempo necessario per 

osservare i risultati ed i dati sul video. 

Per semplificare l’uso, due messaggi sono fissi: M1$è 
uguale a "SE VUOI”, ed M3$ è uguale a PREMI UN TA¬ 
STO"' basta quindi specificare solo M2$ (per esempio 
con "CONTINUARE", oppure "TERMINARE", o altre 

Quando si usa questa subroutine in genere non si 
controlla quale tasto sia stato premuto: il programma 
continua nell'unico modo possibile a quel punto, dopo 
aver effettuato una PAUSA... 


8147 

8148 

8131 

8133 

8133 

o 1 cr , _ 7 
O 1 I 

8133 

8161 

8163 

8165 

8167 

8163 

8171 


REN##*#####*#SUBROUTIHE #3********* 
oppi P RUSPI . 

P E M % $ $ # # $ # # # # # # $ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

re ri 

REri SC0FO_ su;brC iutiHE PRESENTA UN 
meRSRGDIU E CREA UNH PRUSfl 
NELL"EREniZ IONE BEL PROGRAMMA 
PRINCIPALE FINO R QUHNBO NON 
■=•1 PREME UN‘TASTO COSA SUB#4? 


REM 
RE PI 
RE PI 
REM 
REM 
REP1 


PEPI FEIP1R DI COOSUB 82003 • 

PEPI PÌ2$ > PARTE CENTRALE BEL 
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O 1 

ui r •»* 

8175 

8177 

8179 

8181 

C 1 
1 Ou 1 

O 1 ci«=r 
O 1 C'-J 

8187 

8139 

8191 

8193 

8195 

8197 

8199 

8200 
8297 
8299 


REFI 
RE PI 
RE PI 
RE PI 
RE PI 
RE PI 
RE PI 
RE PI 
RE PI 
RE PI 
RE PI 
RE PI 


NESSRGGID CPU* E PI3$ SONO 
FISSATI DRLLR SUB» 

BOFO IL CGOSUE 3200]: 

RT < CONTIENE IL CRERTTERE 
DEL TRSTO FREMUTO 
RC < CONTIENE IL V Fi LO RE 21 
PUJ < CONTIENE—"SE VUOI" 

P13T -CCONTIENE="FRENI UN TRSTO" 
IL CURSORE E' POSIZIONRTO DOFn 
P13T; IL COLORE E" C4 (TESTO:' 


REM### $ # $ $ V # ty. ¥ $ $ # $ ^ $ $ $ $ $ $ 


N1 *= " SE VUOI " : P13T- " F'REPI I UN TRSTO " 


R E PI W# V # $ $ $ $ # $ * $ $ $ $ $ # $ $ # $ $ # # $ % $ $ # 


SUBROUTINE 6 

DOMANDA SÌ/NO 

Questa è una subroutine di comunicazione più com¬ 
plessa della precedente, nella quale infatti si tiene conto 
della risposta, che però può essere solo di due tipi: o sì 
(tasto /S/) oppure no (tasto /N/). Come per le subrouti- 
nes precedenti, sono presentati i tre messaggi e si at¬ 
tende l’azionamento di un tasto: se però questo è diver¬ 
so da /SI e da /N/, vengono ripresentate le tre stringhe 
che formano la domanda. Dopo l’uso della subroutine la 
stringa Rl$ conterrà un solo carattere, la risposta ”S" od- 
pure "N". 

Questa subroutine è utile quando un programma può 
continuare in due modi diversi: usandola in quel punto 
si chiede in pratica a chi usa il programma quale alter¬ 
nativa vuole, ed esaminando Rl$ il programma conti¬ 
nuerà in un modo o nell'altro. 

È opportuno che in M3$ sia indicato il tipo di risposta 
attesa, per esempio con "SI o NO" oppure brevemente 
con ”(S/N)”. 
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m 


l“l ■_! I .Jj 

t~i *"-i cr cr 
•-.* ’J • J 

fi *T« cr -7 
g.’i.J | 

8359 

8361 

C , 0£T , ^‘ 

O •“'ir 1 - 
O O •«* 

O Kj 1 

C'O^G 

u-jbJ 

■71 


fi *■“ 
i“i 


C» _ 

ij . m 


83 


I 

r' r' 

79 

81 

fi 

•-* 

fi cr 
O .j 

fi ~p 

•- 1 I 

89 

91 

93 


97 


8333 

8400 

8410 

8420 

8437 


REP1*:M*$*tf*5UERQUTINE #6********** 
E E PI B0P1ANDA SI/HO 

repi******************************** 

RE PI 

RE PI SCOPO 1 

RE PI QUESTR SUBROUTIHE PRESENTR BEI 
RE PI P1ESSAGGI (USA SUB#4^ E HCCETTR 
RE PI SOLO "S" 0 "N" COPIE TASTO 

RE PI DI RISPOSTA 

RE PI 

RE PI PRIP1R IH C CO SUB 84003 : 

RE PI PIl$;PI2$;'PI3f > P1ESSRG0I 

RE PI COPIE PER SUB#3 

RE PI 

RE PI UOPO IL CGOSUB 84003 : 

RE PI RI$ < CONTIENE LA RISPOSTA "3" 
REP1 OPPURE "N" 

RE pi Rf- < UGALE A RI$ 

RE PI RC < A S SU PI E IL VALORE 21 

RE PI IL CURSORE E'" POSIZIONATO DOPO 
RE PI P13$; IL COLORE E'' C4 <TESTO} 
RE PI 

r e pi * * * * * * * $ * * * * * * * * * * ****** * * * * **** 

G0SUE 8300 : Rlf-FIT 

IF RI:T~"5" OR RI$-"N" THEN RETURN 

GOTO 8400 


O ‘"i* Z' 1 z* 


Ì9 R 


5; E PI * * * $ * * * -ili; * * ¥ $ * * * ¥ *** * * * * *• * **** * * * 


SUBROUTINE 7 

INGRESSO DATI NUMERICI 

Spessissimo occorre che chi usa un programma in¬ 
troduca dei numeri che saranno poi utilizzati dal pro¬ 
gramma: di questo si occupa la SUBROUTINE 7, che è 
piuttosto complessa. 


113 








































L 






Li! ALGEBRA CON C-64 != 




- 1 - 

] 


□ 















Vediamo come funziona: per prima cosa presenta i 
soliti tre messaggi che questa volta chiederanno di in¬ 
trodurre un valore numerico, poi si mette in attesa di una 
risposta. La risposta apparirà nella zona domande, do¬ 
po M3$, cosi come è battuta, fino a quando non viene 
usato il tasto /RETURN/, che termina la risposta. La 
stringa è tradotta in numero, e questo è stampato con 
M3$ nella parte testo dello schermo, in modo che chi 
usa il programma può ricordarsi quali numeri ha già im¬ 
messo, e controllare se ha fatto qualche errore. 

I numeri immessi sono resi in un vettore, cioè sono at¬ 
tribuiti come valore ad un insieme di variabili aventi tutte 
lo stesso nome (viene usato VR), e distinte tra loro da un 
numero, o indice (I). Occorrerà quindi preoccuparsi 
che I abbia il valore desiderato prima di usare questa 
subroutine. 

Questa subroutine incrementa da sola I: se quindi in 
un programma è usata più volte di seguito, per introdur¬ 
re variabili diverse, basta porre 1=0 prima di usarla per 
la prima volta: il primo numero sarà cosi attribuito a 
VR(0), il secondo a VR(1), il terzo a VR(2), e così via. 

Se si prevedono più di dieci valori occorre una istru¬ 
zione tipo /DIM VR(max)/ per dimensionare il vettore, 
dove (max) è il numero massimo di valori previsto. Dal¬ 
l’indice dipende anche su che riga dello schermo viene 
scritta la domanda M3$ seguita dalla risposta: si usano 
le righe da 2 a 13 per presentare i primi 12 numeri, poi il 
tredicesimo è presentato nuovamente nella riga 2 (can¬ 
cellando quello che già c’è), e così via, in modo da po¬ 
ter vedere sempre gli ultimi 12 numeri: questo è molto 
utile quando bisogna introdurre molti numeri di segui¬ 
to. 

La SUBROUTINE 7 fa ancora un’altra cosa: se infatti 
chi usa il programma non introduce un numero, ma bat¬ 
te subito /RETURN/, non viene stampato nulla nella par¬ 
te testo, a VR(I) viene assegnato il valore 0, e la stringa 
Rl$, che normalmente vale "S", diventa ”N". Questo è 
comodo quando non si sa a priori quanti'sono i numeri 
da inserire: in questo modo chi usa il programma può 
segnalare di aver terminato, come se rispondesse ad 
un’implicita domanda di tipo SI/NO. 
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SUBROUTINES 


D 


3701 
3703 
8705 
8707 
3708 
8711 
8713 
8715 
8717 
8713 
8721 

O r di. •_* 

n- 7 'nc- 

8727 

C* ~P Q 

07? 1 
C » •-» 1 


8739 

8741 

o "7 •*;? 

•-« i L + ^ 

8743 

8747 

8749 

n’7cr 1 
O I •J 1 


REn*$#*#*$*#*SUBROUT I NE %7*MW'MW 
REM INGRESSO URTI NUMERICI 

REM 

SCOPO : 

QUESTR SUBROUTINE PRESENTR DEI 


■"■ i -.J J 


0< ■J--' 

8761 
8763 
8765 
8767 
8763 
87^ 


71 
8773 

O ”7 cr 
»-« i I • J 

0777 
U'f I I 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


MESSAGGI i'IJSR SUB#3> FER 
CHIEDERE DEI DRTI NUMERICI. 
SE SI BATTONO DELLE CIFRE E 
[RETURN1 IL NUMERO E'' IN VRU) 
ED E' STRMPRTO SULLO SCHERMO 
INSIEME R M3?J INOLTRE I E' 
INCREMENTHTO E RI? VRLE "S". 
SE INVECE SI BATTE SOLO 

c return:., rllorr vRa>=0 

NON STHMPR NULLH SULLO SCHERNO 
MR INCRENENTR I E RI$="N M . 

PRIMR DI CGOSUB 8800: : 

MI?.: M2f : M3? > MESSAGGI COME 
FER SHE#3; M3? E' STRMPRTO 
RNr.HE NELLA FRRTE SUPERIORE 
CON IL NUMERO INTRODOTTO 
>INDICR QUALE DRTO CHIEDE.. 

LR PRIMA VOLTA FORRE 1-0. 
SE SI PREVEDONO FIU' DI 10 
fi PITI OCCORRE UN'ISTRUZIONE 
TIFO "DIM VRCMASSIMO)" 


I 


DOPO 

RI? 

vr a) 
1 

ST? 

RC 


IL 


IL CGOSUB 8800: : 

•r = " 5 " OPPURE "N" 

<* CONTIENE IL URTO NUOVO 
r INCREMENTATO DI 1 

<f CONTIENE LR STRINGA COME 
" " E' STRTR ERTTUTfl 

<■ IL NUMERO DELLA RIGR 

DOVE HA SCRITTO LR RISPOSTR 

CBR 3 fl 13: 
CURSORE E' POSIZIONATO DUE 
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8773 REN RIGHE PIU' IN ERSSO 

8781 REN 


8731 

8733 

8737 

8733 

8800 

8810 

8830 

8300 

8310 


8320 

8330 

8340 

8350 


8360 

8370 

8380 

8330 

CIQQ7 

o y y r 


REmmmmmwmmmmmwmmmmwm 
REH#######*##SUBROUTINE #7 WWMM# 



GOSUB 8830:IF RI$="N" THEN RETURN 
PRINTVRa-1 > : RETURN 
GOSUB 8600 :ST£="":RI$s"N" 

GET RT : IF R$=CHR$(13> THEN 8368 
IF R*=CHRTC20J THEN Rf~Rf+"[SHIFT3+ 
CCRSR+3 [SHIFT3+CCRSE+3 " : GOTO 8340 
IF fl*<" " THEN 8380 
STf=ST$+R$: GOTO 8350 


st$= ri hit-:stt, i , rbsclen <stt :>-1 > 

PRINT"CCTRL 3 + C RVS ON 3";R $i "[ CTRL 3 + Z 


RVS OFF 3"j : GOTO 8300 . 

RC~ I - (I NT I / i 2 :> 12 ) +3 : GOSUB 
POKE 646, C4 : VRt I >~VRL< ST$ > : 
PR I NTS$ ; " C SHIFT 3 + C CRSR T3 " 


8100 
1 = 1 + 1 
•ÌF STf~ 


THEN RETURN 


FEiNTPÌ3Tj :RI"3": RETURN 


=!8RR 


R E ri ■+■ $ $ •+ $ T $ # % # $ % -f: $ $ # $ $ !$; $ ^ $ $ $ $ $ : # ' 4 ; 


SUBROUTINE 8 

INGRESSO STRINGA 

A volte è necessario che chi usa il programma intro¬ 
duca una stringa di caratteri anziché un numero: di que¬ 
sto si occupa la SUBROUTINE 8. 

Sostanzialmente si comporta come la subroutine pre¬ 
cedente, con alcune differenze: intanto nella zona testo 
apparirà la stringa M3$ seguita dalla risposta così come 
è stata scritta (e non tradotta in numero), poi la stringa di 
risposta che ci interessa sarà ST$. 

Anche in questo caso però la risposta è interpretata 
come un numero, anche se in genere non lo è, per cui il 
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valore ottenuto sarà spesso 0, e tale valore verrà anche 
ora attribuito alla variabile VR(I), 

Anche con questa subroutine occorre fare attenzione 
al valore di I: indica quale variabile del vettore sarà usa¬ 
ta e su quale riga sarà stampata la risposta. 

Come per la subroutine 7, anche la SUBROUTINE 8 
rende la variabile Rl$ uguale a ”N" se come risposta si è 
battuto solo /RETURN/, e uguale a ”S" negli altri casi. 


8327 REMsm*.»«SUBR0UT I NE MMMXMM 
3323 RETI INGRESSO STRINGR 

8331 RE 
REM 


OCrUT' 

UJ'JO 


8335 

REM 

8337 

REM 

8333 

REM 

8341 

REM 

8343 

REM 

8345 

REM 

8347 

REM 

8343 

REM 

8351 

REM 

i~f rrr 
U.7J.J 

REM 

nncc 
O 7.Jt .J 

REM 

I“l Q K* ~P 

oyj i 

REM 

jr.j cj c -j cj 

REM 

8361 

REM 

8363 

REM 

8365 

REM 

8357 

REM 

8363 

REM 

8371 

REM 

i—» i 

I 

REM 


SCOFO : 

QUESTA SUBROUTINE PRESENTIR DEI 
ME5SHGGI (USA SUEttS) FER 
CHIEDERE IJNR STRINGR. 
LH STRINGR E 1 ' CONVERTITR 
IN VALORE NUMERICO IN VEU> 
ED E ■" STAMPATO SULLO SCHERMO 
INSIEME FI M3fU INOLTRE I E'" 
INCREMENTRTO E RIf VALE "S". 
SE INVECE SI BRTTE SOLO 
CRETURN].. HLLORA VRC I>-0; 
STRMPR UNA RIGA BIANCA. 
INCREMENTA I E RIf="N". 

PRIMA DI CGOSUB 8800] : 

M1£•; M2T.1 M3$ > MESSAGGI COME 

PER SUB#3J M3$ E' STAMPATO 
ANCHE NELLA PARTE SUPERIORE 
CON LA STRINGA INTRODOTTA 
I > INDICA QUALE VR(I > USARE 


8375 REM 


8377 REM DOPO IL 

[PiFISIJE 3000] 

8373 REM RI* < = 

="8" OPPURE "N" 

8381 PFM vp.; t 

CONTIENE IL VALORE 

8383 REM 

NUMERICO DELLA STRINGA 

8335 REM I C 

INCREMENTATO DI 1 
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r~"i r~t i~i *•*? 

OJO ! 

REM 

ST 3 

f < L Fi 

STRIP 

'GR 

BRT 

'TUTA 

8989 

REM 

RC 

< LR Ri 

GR DEL. 

LO 

SCH 

ERMO 

8991 

REM 


CON LR RISP 

DSTR C 

ER 

3 F 

! 13 > 

8993 

REM 

IL 

niRRnpF E' 

POSIZ 

IO 

MRTC 

: DUE 

8995 

REM 


r-i t ri- 

k x 0 

HE PIU 


IN E 

: FISSO 


8997 RE M 4 4 4 4 4 4 44 4 $ ¥ 4 $ $ $ 4 '4 4! 4 4-' 4- 4 4 4' 4 4 4 4 4 4 4 4 
351515-! : 

9000 GOSUE 8890: IF RI$~"H” THEI'i RETURN 
9010 FRINT STT : RETURN 
9087 : 

9089 R E PI 4 4444444444444444444444444444444 


SUBROUTINE 9 

SCELTA PROGRAMMI 

Quando un programma può continuare in due modi 
diversi, possiamo usare la SUB DOMANDA SI/NO, che 
abbiamo già visto, e a seconda della risposta il pro¬ 
gramma continuerà in un modo o nell'altro. Quando 
però ci sono più di due alternative, useremo questa su¬ 
broutine che permette di scegliere fino a nove possibi¬ 
lità. Questa situazione si presenta spesso all’inizio di 
programmi compiessi, quando occorre scegliere tra va¬ 
rie parti del programma che eseguono compiti diversi. 

Usando questa subroutine, appaiono nella zona testo 
i titoli a partire dalla riga 3 numerati da 1 in poi ed appa¬ 
re la domanda (nella zona domande) "SCEGLI CHE 
COSA” "VUOI FARE". 

La risposta deve essere una cifra compresa tra quelle 
apparse: se il tasto premuto non è un numero oppure è 
maggiore di quelli possibili la domanda è ripresentata. 

Come detto i titoli al massimo possono essere nove, e 
sono contenuti in un vettore di stringhe, vale a dire in va¬ 
riabili tipo stringa tutte con lo stesso nome (PN$) e distin¬ 
te da un numero: il primo titolo sarà in PN$(1), il secondo 
in PN$(2) e così via; inoltre la variabile PN dovrà indicare 
il numero di titoli usati. Per esempio, se ci sono tre pos¬ 
sibilità dovrà essere /PN=3/, e /PN$(1)=”primo titolo”: 
PN$(2)=”secondo titolo": PN$(3)="terzo titolo”/. 

La risposta deve essere uno dei tre tasti 1, 2, 3, e nes- 


à. 
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sun altro tasto è accettato. Il valore corrispondente al ta¬ 
sto premuto si ritrova nella variabile PS, nel nostro 
esempio sarà 1, o 2, o 3, e deve essere usato per conti¬ 
nuare nel modo voluto, con una istruzione BASIC del ti¬ 
po /ON PS GOSUB.../ ovvero /ON PS GOTO.../. 


9335' REM*##*####*SUBROUT I NE #3Wmwmm* 
3341 REM SCELTA PROGRAMMI 

3343 RErT**^^*^^*^^#^**^*******^********* 
3345 REM 


q; 

—i — 7 

-■•■t i 

REM 

31 

343 

REM 

3351 

REM 

3: 

-i cr •— t 

~t ._l ....i 

REM 

■=r 

—* • 

335 

REM 

3: 

357 

REM 

3 

353 

REM 

3 

361 

REM 

3 

£T C 
n Vi i 

REM 

C| 

365 

REM 

q 

367 

REM 

q 

363 

REM 

3 

3 r 1 

REM 

3 

-y «—i 

l 

REM 


sr.npn : 

QUESTA SUBROUTIHE STAMPA SULLO 
SCHERMO DEI TITOLI «MAX. 3> 
rriNTPAnn ISTINTI HA UN NUMERO 
E CHIEDE DI SCEGLIERE. 
IL NUMERO SCELTO E" IN PS 


PRIMA DEL 
PN > 


puf a :■.. 


L GOSUB 84003 : 

NUMERO DELLE SCELTE 
MAX 3 

PN$«PN> > TITOLI t 
MAX 16 CARATTERI 
.fSE 17 CHR I TITOLI 


SONO SPAZIATI DI UNA RIGAI' 


3375 
3377 


REM 

REM DOPO 
3373 REM MIT 
REM 


3381 
3383 REM 
3385 REM 
3387 REM 

Q OQ CI 
y . “• C 

3331 
3333 REM 
REM 

3337 


IL [GOSUB 34003 : 

? VALE : "SCEGLI CHE COSA" 
; VALE :"" 

s VALE : "VUOI FARE 7-'" 

s ASSUME IL VALORE 3 

~E' IL NUMERO DEL 

programma scelto 

ti rURSORE E' POSIZIONATO DOFO 
M3Ì; IL COLORE E' C4 «TESTO) 

p F M 

^ ^ ^ * 


REM 

REM 


M2f- 

M3T 

RC 

PS 


3333 : 

3400 RC=3 : GOSUB 8100 
3410 FOR 1=1 TO PN 
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3420 PRINT I" "jI ;"= ";PN$<I):NEXT 
3430 H1$="3CEGLI CHE COSA" : N2$=”" 

3440 ri3$="VU0I FRRE >" : GDSUE 8300 

3430 F'S=RSC <. R$ > -48 

3460 IF FS<1 OR PS>PN THEN 3440 

3470 RETURN 

3437 : 

3433 REmwwmwmmmmwwmmmwm* 


SUBROUTINE 10 

MODIFICA PROGRAMMI 


Nei programmi matematici di questo libro capita 
spesso di dover introdurre un'espressione matematica 
da calcolare, e questo si può fare bene modificando 
una o più righe del programma BASIC, usando questa 
subroutine. 


Questa, in effetti non è una subroutine, per cui il suo 
uso richiede più attenzione, anche se è abbastanza 
semplice. 


Innanzitutto occorre preparare due stringhe P1$ e P2$, 
che contengono le due nuove righe BASIC così come le 
vogliamo, complete del numero di riga, ed una terza 
stringa P3$ che contiene un comando BASIC per far ri¬ 
prendere un programma dal punto in cui vogliamo, tipo 
”RUN 2000” oppure "GOTO 100”. 

Poi si può usare la SUBROUTINE 10 andandoci con 
un /GOSUB 9200/ o anche un /GOTO 9200/. 


Fate attenzione, perché dopo queste operazioni si è 
perso quello che c'era sullo schermo, ed anche alcuni 
valori delle variabili: è opportuno quindi che la riga indi¬ 
cata in P3$ sia una riga iniziale di un programma, 
perché in genere si comincia proprio pulendo lo scher¬ 


mo. 


131 REn**$****$$suBROUT i ne # i mmmmm 

13 3 R E ri n o II IFIU R P R 0 R R R M ri I 

137 REM 
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A 1 SA 


REM SCOPO : 

REM QUESTA SUEROUTIHE PERMETTE HI 
REM AGGIUNGERE 0 MODIFICARE DUE 

REM RIGHE DEL PROGRAMMA IN 

REM MEMORIA. 

REM 

REM ATTENZIONE: 

REM NON E' r UNA VERA SUBROUTIHE : 
REM L'USO DI QUESTA SUBROUTIHE FA 
REM PERDERE TUTTE LE VARIABILI E 
REM NON TORNA AL PROGRAMMA 

REM CHIAMANTE, MA RIPRENDE LA 

REM ESECUZIONE DH UNA RIGA 

REM INDICATA IN F3$ 

REM 

REM PRIMA HI CGOSUE 32mi ■ 

REM FIT > FRIAH RIGA DH AGGIUNGERE 
REM AL PROGRAMMA, DEVE COMINCIARE 
REO CON UN NUMERO 

REM F2£ > SECONDA RIGA (COME FISO 1 
REM P3$ > TERZA RIGA DI ESECUZIONE 
REM IMMEDIATA, TIPO "RUN 1000", 

REM CHE RILANCIA IL PROGRAMMA 


REM 

REM DOFO IL CGOSUE 3200 3 : 

REM TUTTE LE VARIABILI VALGONO 0, 
REM pi$ E P2$ SONO AGGIUNTE AL 

REM PROGRAMMA, P3$ E' ESEGUITA. 

REM LO SCHERMO DEVE ESSERE FULITO 


PR1 NT "Z SHIFT 3 + CHOME 3 C 2 CRSRT3";P1? 

: FRINT F2T 

FRINT P3$J"CHOME3" : 

PQKE 1 SS, 3 : FOKE 631, 13 : FOLE t.32, 13 
PURE 633,13 : END 


REM*#*#**#* 
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PROVE COLORI 

Come esempio di uso delle subroutines presentate, 
ecco un programma che permette di modificare a vo¬ 
lontà i colori delle varie zone dello schermo per sceglie¬ 
re la combinazione preferita: il programma fornisce an¬ 
che i valori numerici da attribuire alle quattro variabili 
della riga 8000 per riottenere in seguito la combinazio¬ 
ne scelta. 

Dopo aver dato /RUN/ il programma dovrebbe pre¬ 
sentarsi come in figura (se non avete fatto errori copian¬ 
dolo, naturalmente...): la prima riga indica i valori di CO, 
CI, C2, C3, C4, C5, C6 attualmente in uso, le successi¬ 
ve i colori disponibili. Nelle ultime tre righe appare la pri¬ 
ma domanda: se la risposta è positiva appaiono le altre 
domande, per le varie zone dello schermo. Al termine 
delle domande, premendo un tasto, lo schermo assume 
i nuovi colori e ripresenta la domanda iniziale. 


IL PROGRAMMA 

Vediamo da vicino come è costruito questo program¬ 
ma e come sono utilizzate alcune delle subroutines pre¬ 
cedenti. 

Per prima cosa si deve pulire lo schermo e presenta¬ 
re il titolo: la riga 1000 definisce il titolo e la riga 1004 
chiama la SUBROUTINE 1 che risolve il problema. Per 
non sprecare righe del video, subito sotto il titolo, in una 
sola riga, stampiamo i valori di COI,CI, C2, C3, C4, C5, 
C6 e sotto l’elenco dei colori disponibili. Questo è il mo¬ 
mento della prima domanda: vogliamo modificare i co¬ 
lori? 

Le righe 2000 e 2010 preparano le frasi («stringhe» 
direbbe Mister Bit) per la domanda, e la SUBROUTINE 
6 si occupa di tutto, cioè di presentarle e attendere la ri¬ 
sposta: se la risposta è /N/ vuol dire che non vogliamo 
cambiare i colori: il programma può quindi finire. Se in¬ 
fatti RI$=’’N" il programma termina a riga 2020. 

La domanda successiva chiede il colore del bordo. 
La risposta deve essere un numero, compreso tra 0 e 
15: si userà quindi la SUBROUTINE 7, che presenterà 
le domande e aspetterà la risposta. La riga 2060 con- 
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traila anche che la risposta non superi 15: se questo ac¬ 
cade, per sbaglio, ripresenta la domanda. Mister Bit in¬ 
terviene: dimentico qualche cosa. È vero, occorre ricor¬ 
darsi di dare il giusto valore ad I prima di usare la SU- 
BROUTINE 7, ed infatti nella riga 2040 ad I .si dà il valore 
0 , inoltre l’ultima parte della domanda, con la risposta 
data, apparirà alla riga 2, ed anche a questo penserà la 
SUBROUTINE 7. 

Il numero dato in risposta sarà attribuito alla variabile 
VR(0). 

Per chiedere il colore di fondo del titolo, le prime due 
frasi della domanda possono restare le stesse: la riga 
2070 prepara la terza, prima di usare la SUBROUTINE 
7. 

Non dobbiamo preoccuparci della variabile I, perché 
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ALGEBRA CON C-64 





















è incrementata dalla SUBROUTINE 7 automaticamen¬ 
te. 

La riga 2080 controlla che la risposta non superi 15, 
altrimenti si ritorna a riga 2070, dopo aver riportato I a 
valore 1. 

Il numero del colore scelto sarà attribuito a VR(1), ed il 
programma continua in modo simile chiedendo succes¬ 
sivamente gli altri colori, per il titolo (righe 2090 e 2100) 
per lo sfondo e i caratteri della zona testo (righe 2150- 
2180). 

La riga 2200 usa la SUBROUTINE 5 per effettuare 
una pausa: premendo un tasto qualsiasi il programma 
continua attribuendo a C0-C6 i nuovi valori che sono in 
VR(0)-VR(6) (riga 2220), ed usando poi la SUBROUTI- 
NE 1, saltandone però le prime due righe: in questo mo¬ 
do i colori che abbiamo scelto appariranno sullo scher- 


| PROVE COLORI 

C0 7/C1 6/C2 1/C3 

7/C4 0/C3 4/C6 0 

BORDO. 

0 

FONDO TITOLO. 

1 

CRRRTT. TITOLO... 

2 

3=RZZURR0 

4=P0RP0Rfl 

5=VERDE 

6=BLU 

7=GIRLL0 

8=RRRNCI0 

9=NRRR0HE 


10=ROS5O CHIRRO 
ll=GRIGIO 1 
12=GRIGI0 2 
13=GRIGI0 CHIRRO 
14=ELU CHIRRO 
15=GRIGI0 3 


******* 


SCEGLI IL COLORE 

CO/15) 

FONDO TESTO. 
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mo. Quindi il programma ritorna a riga 1006 completan¬ 
do lo schermo e ripresentando la prima domanda. 

Se volete usare in seguito, anche con altri programmi, 
una certa combinazione di colori, prendete nota delle 
cifre che appaiono sulla prima riga. Caricate ora il vo¬ 
stro programma «SUBROUTINES» e modificate la riga 
8000 con i nuovi valori letti sullo schermo, e salvate di 
nuovo le subroutines sul nastro. 


qqq 


1000 

FR$= 

"FROVE COLORI" 

1001 


1 003 

; 


1004 

GOSUB 8 

000 

1 006 

PRINT"C 

2 8HIFT]+CCRSRT3C0";C0;"CSHI 


FT3+HCR 

SR*-3 /C1 " ; 01 ; " C SHIFT ] + [ CRSR^H 


/C2";C2 

i 

1008 

PRINT"l 

SH IFT 3 + C CRSR*-]/C3 " C3 ; " C SH IF 


T'j-i-rCRS 

R+-3 /C4 " ; C41 " CSH I FT 3 + CCRSR*'3/ 


C5";co; 

" CSHIFT3+CCR.SRF3/C6" 1 C6 

1 0 1 0 

PRINT"[CRSR T3 0=NERO " 

1020 

PRINT" 

IMBIANCO" 

1030 

PRINT" 

2--R0SS0" 

1040 

PRINT” 

3=AZZURRO" 

1000 

PRINT” 

4-PORPORR" 

1.060 

PRINT" 

3=VERUÈ" 

1.870 

PRINT" 

6--BLU " 

1080 

PRINT" 

7=GIRLL0" 

1 1 00 

PRINT" 

8-RRRNCI0" 

1 1 1 0 

FRINT" 

9=MRRR0NE" 

1 120 

PRINT" 

IO-ROSSO CHIARO" 

1130 

PRINT" 

11 =GR 1010 1" 

1140 

PRINT" 

12-ORIGIO 2" 

1130 

PRINT" 

13--GRTGI0 CHIARO" 

1160 

PRINT" 

14--BLU CHIARO" 

1178 

PRINT" 

15-GRIGIO 3" 

1 j. ■:.! 
2000 

IVI 1 -Ir.•« Il » M 

!T .1 t-— v !.. 

mi CAMBIARE" : M2$=" " 

2010 

!•.! : .-r*11 t 

rl..:4--~ i 

COLORI (3/N) ?"'■ G0SUE 3400 
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ALGEBRA CON C-64 


|—i Z'C\ 

IF RI$=”N" 


]": END 

w 


2040 

Ml$="SCEGLI 


; 1=0 

2050 

MS**”BORDO. 

2060 

IF VRC0P>13 

2070 

H3$="FONDO 

2830 

IF VRC1 P> 15 

2038 

113$= " CARATT 

2180 

IF VRC2»15 

2110 

M3$="FONDO 

2128 

IF VRC3P> 15 

2138 

P13$="CflRRTT 

2140 

IF VRC4»15 

2150 

M3$="FONDO 

2160 

IF VRC3P>15 

2170 

M3$="CARATI 

2130 

IF VRC6P>15 


uauKMu&a 


..":GOSUB So 00 
: GOTO 2050 
.„":GOSUB 3300 
: GOTO 2070 
.,":GOSUB 3300 
: GOTO 2030 
..":GOSUB 3300 


2200 PI 21 = ' ’ F' R 0 V A R E I COLORI" : GOSUB 3200 
2203 : 

2220 C8=VRC0> • C1 =VRCIP : C2=VRC2P :C3-VRC-, 

: G4=VR C 4 P ■ C5=VR C 0 P : 06=VR C 6 ? 

2230 PRINT " C 3H.1FT 1 + C HOME 1 " : GOSUB 3010 : gq 
TO 1006 




































Se desiderate essere tenuti al corrente delle novità 
delle nostre collane compilate e spediteci in busta chiu¬ 
sa il tagliando sottostante. Vi terremo periodicamente in¬ 
formati. 

Se desiderate sottoporci, per eventuale pubblicazio¬ 
ne, vostri specifici lavori, programmi o esperienze sulle 
macchine più diffuse, o più recenti, inviateci degli esem¬ 
pi, anche parziali. Saremo lieti di esaminarli e, nel caso, 
di prendere contatto con Voi. 

Saranno inoltre molto gradite eventuali osservazioni, se¬ 
gnalazioni, modifiche o aggiunte ai programmi del pre¬ 
sente libro, e proposte e suggerimenti per pubblicazioni 

successive. 


Desidero essere tenuto al corrente della pubblicazione 
delle Vs. novità. 
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PAGINA RIGA 

algebra 

errata 

14 1 

tutto il 

18 14 

5+3 

30 2010 

Ml$= 

31 3000 

PN$(2) 

31 3010 

Ml$= 

43 8000 

f eliminare 

88 figura 

{ eliminare i 

lui formula 4100 

101 formula 4200 

107 8079 

{ eliminare 

116 8910 

THEN A$=A$+'TSHI| 

120 9420 

PRINT I" 


MODIFICHE suggerite dai lettori: 

PRINT”=";N;'7";D 
{ aggiungere 
{ aggiungere 
(in questo modo ; 


72 3340 

70 1392 

71 1612 


COMMODORE 64 

CORRIGE 

tutto con il 
5-3 

I=0:M1$= 

PR$=PN$(2) 

I=0:M1$= 

e righe) 8000-8020 } 

; itolo in basso nel video > 

N = 

N = 

la riga) 8079 S*'30:8000' ,S > 
TI THEN 4$="C5HIFT] 
PRINT " 


: RETURN RETURN 

la riga) 1392 IF DO THEN PRINT "/“sD; > 
la riga) 1612 IF DO THEN PRINT * , = ,, ;N5 ,I / ,, ;D; > 
i rende più chiara la presentazione dei risultai 



l—,J i—^n* 




una migliore comprensione, 
uno studio più razionale e meno faticoso 


sfruttando al massimo tutte le meravigliose possibilità 
del vostro... compagno di giochi! 

(BMBMHIKHM5 ■EBBGIHHHB HHI Mai mmmm ll*À. il tCA-1 


ra gli argomenti trattati in qu< 


-IICHE; I POLINO 

LE EQUAZIONI DI PRIMO 
DI CRAMER; IL SISTEMA X,Y IMPLICITO; 
«PLESSI; LE SOLUZIONI DELLE EQUAZIONI 
RADO; LE PROGRESSIONI ARITMETICHE 
E, IN APPENDICE, SUBROUTINES E PROVE COLORI. 
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Con questo libro non solo scoprirete con amici e 
insegnanti nuove prospettive, nuove dimensioni, 
ma imparerete voi stessi a modificare i programmi 
proposti o a realizzarne altri, sempre nuovi, personali, 
per le vostre specifiche esigenze. 
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